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BASIC 


MATRICES (1) 


| Variables con 
2 subíndice 


A hemos visto que 
mediante la utiliza- 
ción de bucles es po- 
sible introducir un 
gran número de da- 
tos con un solo INPUT. 
El problema es que 
en la memoria del or- 
denador sólo queda almacenado el últi- 
mo dato introducido. 

Sin embargo, en muchas ocasiones es 
necesario que todos los datos queden al- 
macenados en memoria y para ello ten- 
dremos que utilizar las variables con sub- 
índices. 

Las variables con subíndices son agru- 
paciones formadas por una serie de va- 
riables simples, por ejemplo: 


A(D, A(2), A(3), A(4) 


En este ejemplo en concreto, el nom- 
bre de la variable propiamente dicho es 
la A, mientras que el número encerrado 
entre paréntesis es el subíndice. 

Al igual que sucede con las variables 
normales, existen dos tipos de variables 
con subíndices: numéricas (enteras, sim- 
ple precisión o doble precisión) y alfanu- 
méricas. Los nombres se forman siguien- 
do las mismas reglas de nomenclatura 
que las variables simples. 


Normalmente, las variables con subín- 
dice que tienen el mismo nombre se uti- 
lizan para almacenar datos con alguna 
característica común, por ejemplo, una 
lista de números premiados en un sorteo 
ouna lista de alumnos de un colegio. Este 
conjunto de variables constituye lo que 
se denomina una mafriz. 

Una matriz se caracteriza por tener un 
nombre genérico para todo el conjunto 
de variables con subíndice que la inte- 
gran. 

Para hacer referencia a una variable 
concreta del conjunto que integran la 
matriz es necesario dar el nombre gené- 
rico de la matriz a la que pertenece e in- 
dicar a continuación y entre paréntesis 
el índice o índices necesarios para loca- 
lizar la variable dentro de la matriz. 

Las matrices pueden ser de una, dos, 
tres o más dimensiones, utilizando res- 
pectivamente variables con uno, dos, 
tres o más subíndices, siempre encerra- 
dos entre paréntesis y separados por co- 
mas. Por tanto, vamos a analizar las ma- 
trices según el número de dimensiones. 


' Matrices unidimensionales 


Las matrices unidimensionales se ca- 
racterizan por ser agrupaciones lineales 
de variables simples. En ocasiones se las 
denomina también listas. Podríamos re- 
presentarlas esquemáticamente como 
se muestra en la figura 1. 


E AAA A(N) 


[A Representación gráfica de una matriz unidimen- 
sional numérica. 

Podemos observar que ¡a matriz de la fi- 
gura está constituida por N elementos. 
Los subíndices son consecutivos, por tan- 
to, sería muy fácil introducir los datos uti- 
lizando un bucle. 

Veamos un ejemplo. El programa 1 sir- 
ve para almacenar en una matriz numé- 
rica ocho números aleatorios, que bien 
podrían ser el resultado de un sorteo. 


10 REM rrrrrrerrrrrerrrrrerrx 
20 REM * CARGAR UNA MATRIZ  * 

39 E lí HRHARERRR FAA 

5 a I=1 TOS 

£0 LET PCI)=INTORNDC1)%100)3+1 

70 NEXT 1 

20 PRINT "YA ESTA CARGADA LA MATRIZ" 


El funcionamiento es sencillo. Al ejecu- 
tarse el bucle FOR-NEXT la variable | toma 
el valor 1 y el primer número al azar se al- 
macena en la variable P(1). En la segun- 
da vuelta del bucle | toma el valor 2 y el 
nuevo número aleatorio generado se al- 
macena en la variable P(2). El prcceso se 
repite hasta que el último dato se alma- 
cena en P(8). 

De aquí podemos deducir que los bu- 
cles FOR-NEXT están íntimamente relacio- 
nados con las matrices y se utilizan en 


multitud de operaciones relacionadas 


con éstas, por ejemplo, cargar la matriz, 
es decir, introducir los datos, imprimir los 
datos de la matriz, buscar un dato, etc. 

El programa 1 funciona correctamente 
en cualquier ordenador, excepto en el 
SPECTRUM. Sin embargo, si en lugar de 
una matriz de 8 elementos manejara una 
matriz de 11, ya no funcionaría en ningu- 
na máquina. Esto se debe a que siempre 
que vayamos a utilizar una matriz con 
más de 11 elementos tendremos que 
“avisar” previamente al ordenador. En el 
caso del SPECTRUM hay que avisarle 
siempre, independientemente del tama- 
ño de la matriz. 

El “aviso” se realiza con la instrucción 
DIM, cuyo formato es el siguiente: 


DIM <nombre de variable> (n.* de elementos) 


La instrucción DIM hace que el ordena- 
dor reserve espacio en su memoria para 
albergar la matriz especificada. 

El formato indicado para DIM sólo es 
exacto para el SPECTRUM, aunque se 
puede utilizar para cualquier ordenador. 
Sin embargo, si queremos aprovechar al 
máximo la memoria de cualquier otra 
máquina es mejor utilizar el formato si- 
guiente: 


DIM <nombre de variable> (n.* de elementos - 1) 


ya que podemos utilizar el subíndice 0. 
Por tanto, si escribimos, por ejemplo, DIM 
E(20) estamos reservando memoria para 
una matriz de 21 elementos, desde E(0) 
hasta E(20). Solamente el SPECTRUM no 
admite el 0 como subíndice. 

Veamos un nuevo ejemplo. El progra- 
ma 2 carga una matriz con una serie de 
datos numéricos introducidos por tecla- 
do. A continuación busca el dato mayor 
y la posición que ocupa en la lista. 


He 
1D REM ELE RRIREREEER 
20 REM O* NUMERO MAYOR * 
REM AELEELAEREREAAAEEAS 
; DES 
INPUT "NUMERO DE DATOS"¿N 
15 N<1 THEN GOTO 50 
o C0LS 
30 DIM MIN) 
O FOR I=1 TON 
10 INPUT "TECLEA UN NUMERO" ¡M(1> 
CS 


E 


N 
18 THEN LET MA=Mi1):LET PO=J 
177 NEXT 1 
12% PRINT "LOS DATOS SON: ":PRINT 
1 TON 
(M3 Ig") =P, MET) 


PRINTO "NUMERO MAYOR: ",MÁ 


2 FRINT “POSICION: "PO 


En la línea 80 se dimensiona la matriz M 
para que pueda almacenar N elemen- 
tos. El bucle FOR-NEXT de las líneas 90 a 
110 permite cargar la matriz introducien- 
do números desde el teclado. En las lí- 
neas 130 y 140 se considera, en princi- 
pio, que el número mayor es el primero 
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de la matriz y, por tanto, ocupa la posi- 
ción 1. El bucle FOR-NEXT de las líneas 150 
a 170 permite ir comparando cada ele- 
mento de la matriz con el mayor hasta el 
momento, de forma que si dicho elemen- 
to es mayor se almacenará en la varia- 
ble MA, donde está en cada momento el 
número mayor de todos los examinados. 
En la variable PO se almacena la posi- 
ción que ocupa en la matriz. Finalmente 
se imprimen los resultados como se 
muestra en la figura 2. 


LOS DATOS SON: 


Lo A IDA 
no. .u.“.n “a “un. 


1 
2 
3 
4 
3 
ó 
? 
3 
A 
1 
1 
EE 


) 
) 
y 


NUMERO MAYOR : 
POSICION: 


Presentación en pantalla del programa 2. 


En cuanto a las matrices altanuméricas 
tienen las mismas características que las 
numéricas, salvo que el nombre debe ir 
acompañado del signo $. 

El programa 3 se encarga de ordenar 
alfabéticamente una lista de nombres in- 
troducidos por teclado. 

4.2 RONDA 2.1 RONDA 


y 
"[—k 
Y 


3 COMPARACIONES 


4 COMPARACIONES 


A 
[E 


REM rr rre rr rrrrrrrrriritrro 
REM * ORDENACIÓN Aa, tEBETIios  * 
DEM REFERIA 
HIELO 
INPUT "CUANTOS NOMBRES INTEGRE 
23 LISTACIN 
GF Ne<2 THEN ED 
iS 
CIM LR%lM> 
¿FOR I=i TON 
100 INPUT. "TECLEA UN NOMBRI*+Le. o 
110 CS 
12% NEXT 1 
1230 FOR 1=1 TO N-1 
120 FOR J=: TO N-7 : 
FLA teLc +1 THEN SOTO 19 
LET Xé=LE: 5. á 
LET LAI SL AA h 
LET LécJrio=Xxs$ 
NEXT J¿NEXT 
FOR 1l=1 TON 
PRINT L1$<15 
NEXT 1 


Para la ordenación de la lista hemos 
utilizado el mismo método ya visto ante- 
riormente en esta colección, sólo que 
ahora más depurado. 

El método consiste en hacer sucesivas 
rondas de comparaciones contabiliza- 
das por el bucle de las líneas 130-190 
(con índice !). En cada ronda se hacen 
N-i (bucle con índice J) comparaciones 
de cada elemento de la lista con el in- 
mediatamente posterior, procediendo al 
intercambio en caso de que el primer 
elemento de la comparación sea mayor 
(alfabéticamente hablando) que el se- 
gundo. De este modo la lista se ordena 
empezando por el último elemento y ter- 
minando por el primero. 

En la figura 3 podemos ver de forma es- 
quemática el proceso de ordenación 
para una lista numérica de cinco ele- 


3. RONDA 4.2 RONDA 


4 COMPARACION 


2 COMPARACIONES 


Representación esquemática del proceso de ordenación de una lista. 


ARJONA, RITA 


DEPRES, ALEJANDRO 
ESTEBAN, CELIA 
GARCIA, JAVIER 
GARCIA, NIEVES 
GIL, ROBERTO 
MALDONADO, ESTHER 
MARCOS, ALEJANDRO 
NAVARRO, ALEJANDRO 
PLAZA, LUCIA 
QUINTANA, JESUS 
QUINTANILLA, RAMO» 
RODRIGUEZ, ERNESTO 
RUIZ, JAVIER 
SUERO, FERNANDO 


I_ Presentación en pantalla del programa 3. 


mentos. Al finalizar cada ronda queda or- 
denado el elemento señalado. 

En la figura 4 podemos ver el aspecto 
de la pantalla tras una posible ejecución 
del programa 3. 

Evidentemente, si en lugar de una ma- 
triz altanumérica hubiésemos utilizado 


l AAA ERE AAA AEREA 


* PAISES Y CAPITALES  * 
HRHAA ERRE 


P$(5),0$05) 
50 PRINT TAB(16) ; "OPCIONES" 
70 PRINT OTAB(16)q"=-=-=---' 
30 PRINT :PRINT 
PRINT TABC16);"1. EUROPA": PRINT 
PRINT TABC16);"2. AMERICA" :PRINT 
110 PRINT TAB(16);"3. ASIA" :PRINT 
O PRINT :PRINT 
PRINT "PULSA LA OPCION DESEADA" 


LET A$=INKEY$:1F As="" THEN GOTO 140 
IF ASC AR) 97 DR ASCAS)+S1 THEN GOTO 


1F Af="1" THEN RESTORE 380 
IF A$="2" THEN RESTORE 390 
IF A%R="23" THEN RESTORE 400 
ELS 
) "FOR d=1 TO S 
210 READ P$cI>,Cé$c 15 
NEXT 1 
O LET N=INTCORNDC1257 +1 
PRINT "PAIS:" ,P$íN> 
PRINT :¿PRINT 
260 INPUT "¿CUAL ES LA CAPITAL?" ¡R$ 
270 PRINT :¿PRINT 
IF Ré=C$IN> THEN PRINT "CORRECTO" 


una numérica, el programa 3 serviría 
para ordenar de forma creciente una lis- 
ta de números. 

Hay que advertir que si tratamos de 
usar este programa en un SPECTRUM, 
comprobaremos con sorpresa que sólo 
se almacena en memoria la inicial de 
cada nombre. Esto es debido a que el 
SPECTRUM dimensiona las matrices alfa- 
numéricas de una forma particular, con 
el siguiente formato: 

DIM <nombre de variable > (n.? de ele- 
mentos, longitud máxima), de modo que 
la línea 80 del programa 3 sería: 


80 DIM L$ (N,20) 


donde se establece una longitud máxi- 
ma de 20 caracteres para cada nombre. 


Para finalizar vamos a ver un ejemplo 
en el que se utilizan dos matrices alfanu- 
méricas. Además ambas matrices se car- 
gan mediante la lectura de datos alma- 
cenados en líneas DATA. El programa 4 
tiene por objeto practicar geografía, per- 
mitiendo seleccionar el continente que 
deseemos. El ordenador irá presentando 


190 


¿GOTO 300 


PRINT "NO ES CORRECTO. LA CAPITAL DE ";¡P$S(N>;3" ES ";C$(N> 


PRINT. :PRINT 


PRINT "¿QUIERES PROBAR OTRO PAIS? (S/N>" 


Ó LET AS=INKEYS;IF A$="" THEN GOTO 320 
IF Aé="S" OR Aé="<" THEN CLS:GOTO 230 


LS 


PRINT "¿QUIERES CAMBIAR DE CONTINENTE? (S/N>" 


LET Aé=INKEYS:IF Aft="" THEN GOTO 350 
IF Af="S" OR Af="<" THEN CLS:GOTO ¿0 


320 DATA ESPAÑA,MADRID, FRANCIA,PARIS, ITALIA, ROMA AUSTRIA, VIENA, SUIZA, BERNA 
DATA ESTADOS UNIDOS, WASHINGTON ,BRASIL,BRASILIA,PERU,LIMA,ARGENTINA, BUENOS Al 


y CUBA, LA HABANA 


400 DATÁ JAPON, TOKIO, CHINA, PEKIN, INDIA,NUEVA DELHI,COREA, SEUL, THAILANDIA, BANGKOK 
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en pantalla sucesivos países del conti- 
nente seleccionado a la vez que pregun- 
ta su capital. 


En el programa sólo hemos puesto tres 
continentes y cinco países por continen- 
te para que el listado no resultara dema- 
siado largo. Sin embargo, con un poco 
de paciencia no resulta muy difícil trans- 
formarlo en un auténtico programa edu- 
cativo. Sólo habrá que dimensionar ma- 
trices más grandes, añadir los continen- 
tes que faltan y aumentar el número de lí- 
neas DATA. 


Por otra parte, este mismo programa 
podría servir para practicar muchas otras 
materias con unas modificaciones míni- 
mas y cambiando las lineas DATA. Por 
ejemplo, podríamos practicar inglés po- 
niendo en las líneas DATA palabras en es- 
pañol con su correspondiente significa- 
do en inglés. 

Por último, en la figura 5 podemos ver 


el aspecto de la pantalla durante la eje- 
cución del programa 4. 


PAIS: BRASIL 


¿CUAL ES LA CAPITAL?? RIO DE JANEIRO 


NO ES CORRECTO. LA CAPITAL DE BRASIL ES BRASILIA 


¿QUIERES PROBAR OTRO PAIS? (S/N) 


[A Presentación en pantalla del programa 4. 


1 Comandos 
» de 
desplazamiento 


ON este tipo de co- 
mandos se desplaza 
la configuración de 
bits de un registro en 
una posición, bien 
hacia la derecha, 
bien hacia la izquier- 
da. 

Si se trata de una posición de memo- 
ria, tendremos un comando del tipo 
(Read-Modify-Write), es decir, que prime- 
ro el procesador lee la posición de me- 
moria direccionada, después la modifica 
desplazando sus bits y, por último, de- 
vuelve un nuevo valor a dicha posición. 

ASL. Produce un desplazamiento a la ¡z- 
quierda del byte direccionado. En la po- 
sición cero, que se libera por este co- 
mando, se inserta un “0” y el séptimo bit 
se transmite al carry flag. 

Así, con el comando ASL A teniendo el 
ACU el valor %01100101 se obtendría la 
siguiente configuración: 


%11001010 C=0 


Vemos que el Carry flag está desacti- 
vado, puesto que el séptimo bit del ACU 
estaba a “0”. 

Una observación importante: si nos fija- 
mos en el número que contenía el ACU 
antes de la operación (101) y lo compa- 
ramos con el valor después del coman- 
do ASL (202) vemos que se ha duplicado. 


MAQUINA 6502 


Esto es algo lógico, puesto que los bits, 
como sabemos, van en potencias de 2, 
pero interesante cuando queramos mul- 
tiplicar un número por dos. 

LSR. Corresponde al comando anterior, 
pero el desplazamiento de los bits es 
ahora hacia la derecha. En el bit que 
ocupa la posición siete se inserta un “0” 
y el bit cero se transmite al Carry flag. 

Así, con el comando LSR A, teniendo el 
ACU la configuración % 10010110 (150), 
se obtendría la siguiente configuración: 


%01001011 (75) C=0 


Como el lector habrá notado, con el 
comando LSR se puede dividir un núme- 
ro por 2. Pero esto no es todo, se puede 
saber si dicho número es par o es impar 
consultando el valor del Carry flag des- 
pués de ejecutarse el comando. 

Si el número es par, el bit cero conten- 
drá un “0”, y al efectuar el comando LSR, 
ese “0” pasará al Carry flag. Si el número 
es impar, el bit cero contendrá un “1”, 
que se transmitirá al Carry flag. Ahora 
basta hacer una comparación del tipo 
BCC o BCS y bifurcar después según nos 
convenga. 

Si con el comando ASL o LSR direccio- 
namos una posición de memoria, el con- 
tenido del ACU no se altera. 

ROL. Con este comando se rotan cícli- 
camente los bits del ACU o de la posición 
de memoria direccionada hacia la iz- 
quierda. Además, se traslada el Carry 
flag a la posición cero del registro, y el 
bit siete del registro pasa al Carry flag. En 
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realidad es como si trabajáramos con 9 
bits en vez de con 8. 

Por ejemplo, si el ACU contiene el nú- 
mero %01001001, y además C=1, el co- 
mando ROL A conducirá a la siguiente 
configuración: 


%10010011 C=0 


ROR. Es el comando inverso al anterior, 
y desplaza ciclicamente hacia la dere- 
cha el contenido de un registro. El conte- 
nido del Carry flag se traslada al bit 7, y 
el contenido del bit cero pasa al Carry 
flag. 

En todos los casos en los que se utilicen 
comandos de desplazamiento, se po- 
drán activar los flags N, Z e Interrupt de- 
pendiendo del resultado de la opera- 
ción. 

Veamos, por último, un resumen de es- 
tos comandos con sus códigos y modos 
de direccionamiento. 


Modo de direccionamiento  ASL LSR ROL  ROR 


ACU SOA $4A $2A S6A 
Absoluto SOE $4E $2E $6E 
Zeropage $06 $46 $26 $66 
Absoluto 

indexado por X $S1E $5E $3E $7E 
Absoluto 
indexado por Y $16 $56 $36 $76 


O Comandos de subrutina 


Es una técnica muy utilizada en BASIC, 
cuyas instrucciones son GOSUB y RETURN, 
y no menos importante en lenguaje má- 
quina. Cuando se llama a una subrutina 
el procesador debe memorizar la posi- 
ción en la que encuentra en ese momen- 
to, así como el valor de algunas variables 
que luego necesitará cuando retorne de 
la subrutina. 

Para todo esto se reserva un campo es- 
pecial dentro de la memoria del COM- 
MODORE 64, llamado Stack (pila) o me- 
moria tampón. Este área de memoria 
está comprendida entre $0100 (256) y 
$o1ff(511). Para posicionarse dentro de 
este stack y leer o almacenar datos en 
él, existe un apuntador o stack pointer, 
que es uno de los registros del procesa- 
dor y al cual nos referimos cuando des- 


cribimos los registros internos del micro- 
procesdor. 

El stack trabaja de tal manera que el úl- 
timo valor introducido en él será el prime- 
ro en extraerse, con una «pila» de cosas 
unas encima de otras. Gracias a este 
principio es posible el anidamiento de 
subrutinas. 

Los comandos para el manejo de sub- 
rutinas son JSR ($20) y RTS ($60). 

Este último ya lo habíamos visto, pues- 
to que los programas que hemos tratado 
son llamados desde el BASIC, y cuando fi- 
nalizan deben llevar el comando RTS, 
para volver a él. 


0 Comandos de stack 


Se utilizan para intercambiar datos en- 
tre el stack y el ACU, o el stack y el regis- 
tro de estado. Cuando los datos van al 
stack, el stack pointer se decrementa en 
una unidad. Cuando los datos salen del 
stack, el stack pointer se incrementa en 
una unidad. 

PHA. Guarda el contenido del ACU en 
el stack. El ACU no se altera. 

PHP. Guarda el contenido del registro 
de estado en el stack. No se altera el 
contenido de registro de estado. 

PLA. Es el inverso al comando PHA. Se 
extrae un byte del stack en la posición a 
la que apunte el stack pointer y se car- 
ga al ACU. Dependiendo del valor carga- 
do, podrán alterarse los flags N y Z. 

PLP. Se extrae un byte del stack y se 
eleva al registro de estado. Es el coman- 
do inverso al PHP. 

Los códigos correspondientes a estos 
comandos son los siguientes: 


Comando 


OD Comandos para 
las interrupciones 
Son los últimos comandos que vamos a 


ver en esta sección dedicada al código 
máquina. 


La CPU del COMMODORE 64 tiene dos lí- 
neas de interrupciones (sin contar la de 
Reset), que se suelen denominar IRA y 
NMI. 

Además existe la interrupción por pro- 
grama BRK. 


1. Rutina de Reset. Consiste en una se- 
rie de inicializaciones que sirven para 
poner en funcionamiento al unísono to- 
dos y cada uno de los circuitos integran- 
tes de su C-64. 

Al conectar el ordenador, el procesa- 
dor se dirige a las posiciones $FFFC 
(65562) y $FFFD (65563) en las que se en- 
cuentra un apuntador conteniendo los 
números $E2 y $FC, respectivamente. Es 
decir, apunta a la dirección $FCE2 
(64738), donde realmente empieza la ru- 
tina de Reset. 

Como el apuntador y la propia rutina 
están en ROM (Read Only Memory), no 
pueden en principio ser alterados, a no 
ser que copiemos la ROM del sistema 
operativo a la RAM que hay debajo de 
ella, y a continuación desconectemos di- 
cha ROM mediante la posición en memo- 
ria 1, poniendo el valor 53 en decimal. 

Ahora esta rutina se ejecuta en RAM y 
aquí sí puede ser modificada, o cam- 
biando el vector a otra zona y crear otra 
rutina de Reset nueva. 

2. Interrupciones IR. Son las que se 
explicaron anteriormente, ocurriendo 
cada sesentaavo de segundo. Son del 
tipo estable, es decir, pueden ser desha- 


bilitadas y van a ser las más utilizadas en 
nuestros programas. 

3. Interrupciones NMI. Por estas líneas 
se puede recibir una señal de interrup- 
ción de cualquier dispositivo que preci- 
se su servicio (reloj, bus, serie, tecla- 
do...), y produce una interrupción de lo 
que se encuentre ejecutando para aten- 
der la llamada. Este tipo de interrupcio- 
nes son del tipo no evitable, es decir, se 
producen siempre que haya un dispositi- 
vo digamos «pidiendo la interrupción». 

4. Interrupciones BRK. Son interrupcio- 
nes solicitadas dentro de nuestro progra- 
ma en lenguaje máquina mediante la 
instrucción correspondiente: BRK($00) y 
RTI($40). 

Al ser llamada cualquiera de las in- 
terrupciones anteriores, al procesador se 
dirige a donde señale el apuntador 
correspondiente. 


Interrupción Apuntador 


SFFFC-S$FFFD 


$0314-5$0315 
$0316- 0317 
$0318- 0319 


Para terminar mencionaremos un co- 
mando que no hace nada. No le extra- 
ñe, pues tiene una misión: quitar instruc- 
ciones de un programa sin tener que mo- 
dificar éste, o para rellenar bucles de es- 
pera. Su símbolo es NOP y su código SEA. 


O Programa: 
Gráficas para 
AMSTRAD 


UCHAS veces, sobre 
todo los estudiantes 
de ciencias, necesi- 
tan tener a mano un 
programa que les di- 
buje cualquier tipo 
de gráfica en la pan- 
talla. Un programa 
que permita definir los límites de la gráfi- 
ca, los incrementos, que nos dibuje las 
asíntotas, etc. 


, «Dibujar gr 

“Escribir eL. 
¿Definir formato, 

«« «Salir del programa. 


((ELICE: OPCION») 


í Definición del formato. 


El ordenador nos dibujará la gráfica en 
la parte derecha de la pantalla mientras 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


Con este programa podremos ver cual- 
quier gráfica que nosotros queramos, por 
complicada que ésta sea, en pocos ins- 
tantes. 

Al principio nos aparece un menú con 
cuatro opciones: 

1. Dibujar gráfica. Una vez que hemos 
definido cómo queremos la gráfica y qué 
función vamos a utilizar, debemos pulsar 
esta opción. 

2. Definir fórmula. introducimos la fun- 
ción a visualizar. 

3. Definir formato. El ordenador nos 
hace una serie de preguntas sobre la 
gráfica, sobre los límites, etc. 

4. Salir del programa. 


l FORMATO: 


«,,Punto o Trazo, (1) 
«Dibuja eje x, (5) 
«,« «Dibuja eje Y, ie 


«Escribe valores de x e y: 
«EN, 05, 
«Margen cuando XY ==) (0 
«Dibuja cuadricula, 


Tri. Radianes o cda 


1 
5 
3 
4...STEP, Auto, 
6 
7 
0 


Menú principal. 


nos informa de lo que está haciendo en 
la parte izquierda. 


MIA A EEES 


20 REM xxx GRAFICAS! Xx 
30 REM xxx Un programa realizado Xxx 
40 REM xxx Por KK 
50 REM *X*x*x Carlos A. Maria Morin xxx 
60 REM Xxx XXX 
70 REM xxx (C> Ediciones ps. 


80 REM *x**x Siglo Cultural-1987 XXX 

90 REM AMOO OOOO OOOO OOOO OOOO OK 

100 REM 

110 REM ASMSSSOSOSOOIOOOOOOOROOOIOREOROROOOROOK 
120 REM ddokxkodkkxkk INICIALIZACION AdOOioOOOK 
130 REM AMSOOIOOOOIOIOIOIOIOOIOOIOIOIOOOOOIOIOIOOOIOOK 
140 REM 

150 BORDER 1 

160 PAPER O 

170 PEN 5 

180 CLS 

190 MODE O 

200 LOCATE 3,12 

210: PRINT"G RAF 1 CC 0:5* 

220 FOR ret=1 TO 3000 

230 NEXT 

240 MODE 2 

250 DIM aumentos (3) 

260 Al=1 

270 A2=1 

280 X5=0 

290 aumento=1 

300 k1$(1>="T” 

310 k1$(2>)="S"” 

320 K1$8(3>="S” 

330 :k1$5(4>="S” 

340 k15(5>="S” 

350 k15(6>="G” 

360 k15(7>="N"” 

370 k1$(8>="N"” 

380 SYMBOL 244,0,0,60,66,129,129,66,60 
390 SYMBOL 245,0,0,60,66, 129, 129,66,60 
400 WINDOW +*1,1,40,25,25 

410 KEY 156,CHR$(13)+"goto 380"+CHR$(13) 
420 KEY 157,"c1s: list'+CHR$S(13> 

430 KEY DEF 15,0,48,156, 157 

440 REM 

450 REM AMSSOIOOIOIOIOOOIOOOOOOIO OOOO OK 
460 REM *x*x PROGRAMA PRINCIPAL 'MENU' xx 
470 REM AMSSOOOOOOIOIOOOMROOOOROOORSORSOIOIOROOK 
480 REM 

490 CLS 

500 BORDER 24 l 
510 CLS 


520 PRINT CHR$(22)>;CHR$(1)> 

530 LOCATE 32,2 

SIGO PRIET""G RAF TCO5S” 

550 LOCATE 32,2 

560 PRINT” ae 

570 PRINT CHR$(22)>;CHR$(0> 

580 PRINT: PRINT: PRINT 

590 DEF FNy(x>=((xx*(SQR(1-x))>)/(SQR(x+1))) 
600 PRINT: PRINT: PRINT: PRINT: PRINT 

610 PRINT SPACE$(29);”1...Dibujar grafica.” 
620 PRINT SPACES(29)>;”2...Escribir formula.” 
630 PRINT SPACES(29);”3...Definir formato.” 
640 PRINT SPACES(29)>;"”4...Salir del programa.” 
650 PRINT: PRINT: PRINT 

660 PRINT: PRINT: PRINT 

670 LOCATE 31,24 

680 PRINT ” <<ELIGE OPCION>> ” 


1 PROGRAMAS 


690 kS=INKEYS$ 

700 IF k$=”'" THEN 690 ELSE k=ASC(k$)>-48 

710 1F k<1 OR k>4 THEN SOUND 1,60,10,15 ELSE 780 
720 LOCATE 31,24 

730 PRINT "<<OPCION INVALIDA>>” 

740 CLEAR INPUT 

750 FOR ret=1 TO 1500 

760 NEXT 

770 GOTO 670. 

780 ON k GOSUB 1120,1040,840,800 

790 GOTO 490 
800 CLS 
810 BORDER 1 
820 END 
830 REM 
840 REM aadSiddSd OOOO OOOO OOOO OOJOROK 

850 REM *xxx* SELECCION DEL FORMATO xxx 

800 REM Adal” laolololOjOjO OK 

870 REM 

880 CLS 

890 PRINT: PRINT” FORMATO: ” 

900 PRINT: PRINT: RESTORE 

910 FOR f=1 TO 8 

9£20 READ af$, neg$, men$ 

930 PRINT men$; 

940 IF f=7 THEN PRINT "Margen cuando XY "CHR$(154)>)+CHR$(243)>” "”CHR$(244)>+CHR$ (24 
o PAE A 

950 PRINT k18(£f>”)> ”; 

960 k$=INKEYS$ 

970 IF k$="'" THEN 960 ELSE k$=UPPERS(k5)> 

980 IF k$<>”" THEN IF k$=af$ OR k$=neg$ THEN k1$(f>=k$8 

990 FF k$<>af$ AND k$<>neg$ THEN PRINT ELSE PRINT k1$(f)> 

1000 NEXT f 

1010 RETURN 

1020 STOP 

1030 REM 

1040 REM ======== VOLVER AL MENU ======== 

1050 REM 

1060 CLS 

1070 LOCATE 21,24 

1080 PRINT"Cambiar la ecuacion y pulsar [(SHIFT1 y [0]” 

1090 LOCATE 20,10 

1100 EDIT 590 

1110 GOTO 490 

1120 CLS 

1130 PAPER 2 

1140 PEN 5 

1150 BORDER 1 

1160 CLS 

1170 1F k15(6)="R” THEN RAD ELSE DEG 

1180 REM 

1190 REM Ad3SSRSS SOS dE lOlS OOOO OOOO jojo oK 

1200 REM Ad9MdRMRdOKK DIBUJA EJES AMSRdONNOOK 

1210 REM A4oddSOIOSISIOSSSS SiS” loook 

1220 REM 

1230 ORIGIN 440,200 

1240 MOVE -200,0:DRAW -200,200 

1250 MOVE -200,199: DRAW 200,199 

1260 MOVE 199, 199: DRAW 200,-200 

1270 MOVE 0,0: MOVE -200,0 

1280 DRAW -200,-199: MOVE -200,-200 

1290 DRAW 200,-200: MOVE 199,-200 

1300 DRAW 199,200: MOVE 5,38 

1310 DRAW -5,38: MOVE 5,76 

1320 DRAW -5,76: MOVE 5,114 

1330 DRAW -5,114 

1340 IF k1$(2)="S” THEN MOVE 200,0:DRAW -200,0 

1350 MOVE 5,152: DRAW -5,152 


F 


1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 

1520 
1530 
1540 
1550 


1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 


MOVE 5,190: DRAW -5,190 
MOVE 5,-38 :DRAW -5,-38 
MOVE 5,-76:DRAW -5,-76 
MOVE 5,-114:DRAW -5,-114 
MOVE 5,-152: DRAW -5,-152 
MOVE 5,-190: DRAW -5,-190 
PLOT 0,0 


IF k1$(3)="S” THEN MOVE 0,200: DRAW 0,-200 


MOVE 38,5: DRAV 38,-5 
MOVE 76,5: DRAW 76,-5 
MOVE 114,5:DRAW 114,-5 
MOVE 152,5:DRAW 152,-5 
MOVE 190,5:DRAW 190,-5 
MOVE -38,5:DRAW -38,-5 
MOVE -76,5:DRAW -76,-5 
MOVE -114,5:DRAW -114,-5 
MOVE -152,5:DRAW -152,-5 
MOVE -190,5:DRAW -190,-5 
IF k1$(8)="S” THEN GOSUB 3430 
REM 


REM ASOMO SOS S OSOS SOS lJoJOK 
REM * SELECCION DE ESCALA Y AUMENTO x 


REM A3RSSSO OOOO dla jajajaj jOjdldolEalOloOjojOJOjoOK 
REM 

LOCATE 1,1 

PRINT "Escala del eje X:”;¡Al; 

INPUT ¡A1S 

IF A1$<>”” THEN A1=VAL(A15) 

LOCATE 18,1 
PRINT Al;” 
LOCATE 1,2 
PRINT"Escala del eje Y:”;A2; 
INPUT A25 
IF A258<>”” 
LOCATE 18,2 
PRINT A2;” 
LOCATE 31,12 

PRINT"X="; INT(1000x200/A1>/1000 

LOCATE 58,1 

PRINT*Y="; INT(1000x200/42>/1000 

LOCATE 1,3 

PRINT” Ampliacion en eje X (0-9>”; 

INPUT aumentos$(1) 

LOCATE 27,3 

PRINT ” "¡aumento$(1> 

IF aumento$(1><>”'” AND aumento$(1><>”o0"” 
IF aumentos$(1><>'"1"” AND aumento$(1)><>”2"” 
IF aumento$(1><>"3" AND aumento$(1><>"4” 


THEN A2=VAL(A25) 


T: 


IF aumento$(1><>"5" AND aumento$(1><>”6"” 
IF aumento$(1><>'"7'" AND aumento$(1><>”8” 
IF aumento8(1><>'”9'” THEN 1760 ELSE 1870 


LOCATE 1,4 
PRINT"” Ampliacion en 
INPUT aumentos (2) 


eje Y (0-9”; 


LOCATE 27,4 

PRINT ” ”¡aumentos$(2) 

IF aumento$5(2><>”” AND aumentosS(2><>"”0” 

IF aumento$(2)>)<>"”1'" AND aumento$(2)<>”2” 
IF aumento$(2>)<>”3” AND aumento$(2)><>"4” 
IF aumento$5(2)<>'5” AND aumento$(2)<>”6” 
IF aumento$(2)><>”7'" AND aumento$(2)<>”8” 
IF aumento$(2)<>"”9” THEN 1870 ELSE 1980 


IF aumento$(1>="”'" THEN aumento(1>=1 


IF aumento$(1)>)="0"” THEN aumento(1>=10 
IF aumento$(1>="”1” THEN aumento(1>=20 
IF aumento$(1>="2" THEN aumento(1)>)=30 
IF aumento$(1>="3"” THEN aumento(1>=40 
IF aumento$(1>)="”4” THEN aumento(1>=50 
IF aumento$(1>="5"” THEN aumento(1>=60 


THEN 


HEN 1820 ELSE 1870 

THEN 1830 ELSE 1870 
THEN 1840 ELSE 1870 
THEN-1850 ELSE 1870 
THEN 1860 ELSE 1870 


4 


1930 ELSE 1980 

THEN 1940 ELSE 1980 
THEN 1950 ELSE 1980 
THEN 1960 ELSE 1980 
THEN 1970 ELSE 1980 
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2050 
2060 
2070 
2080 


2090 
2100 


2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 


2360 
2370 
420 

2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 


2470 
2480 
530 

2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 


2580 
2590 
640 

2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 


IF 
IP 
IF 
IF 


IF 
IF 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
END 


aumento$(1>)="”6” 
aumentos$(1»>=”7"” 
aumento$(1)=”8” 
aumento$(1>=”9” 


aumento$(2)="”"” 
aumentos$(2)>="0” 


aumento$(2)>=”1” 
aumento$(2)>="2” 
aumento$(2)="3” 
aumento$(2>="4” 
aumento$(2)="5” 
aumento$(2>=”6” 
aumentos$(2)=”7"” 
aumentos$(2)>="8" 
aumento$(2)="9" 
k15(4)="N"” THEN 
k1$(4>)="N'" THEN 
S=0 THEN S=2/A1 
k1$(1>)="T'" THEN 


REM 


¡INCL 
REM * TRATAMIENTO GRAFICO DE FUNCIONES x* 
¡INC ES 
REM 


ON 


ERROR GOTO 3380 


LOCATE 1,8 


PRINT*Funcion: f(x>"” 


MOVE X5,0 
FOR X=X5 TO 200/A1 STEP S 


IF k1$(5)="S'” THEN LOCATE 1,6:PRINT '"X:”;XPOS; : LOCATE 1,7: PRINT"Y:”;YPOS” 


IF XxA1>32750 OR Y*xA2>32750 OR Xx*xA1<-32750 OR Yx*xA2<-32750 THEN 2410 
THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THEN 2 


IF 


pe 


k1$(7)="N” 


XxAlkaumento(1> 


THEN 
THEN 
THEN 
THEN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


LOCATE 1,5: INPUT "STEP: 
S=2/A1: LOCATE 1,5: PRINT"STEP:”;”Autom.”;S;” 


ELSE 


2820 


aumento(1>)=70 
aumento(1>=80 
aumento(1>)=90 
aumento(1>=100 


THEN aumento(2>=1 


aumento(2>=10 
aumento(2)=20 
aumento(2)=30 
aumento(2)>)=40 
aumento(2)=50 
aumento(2)=60 
aumento(2>)=70 
aumento(2)=80 
aumento(2)=90 
aumento(2)=100 


ELSE 2260 


py=INTC(FN y(X>*A2*xaumento(2)) 
PLOT px, py 
NEXT 


LOC 


ATE 1,8 


PRINT"Funcion: f(-x)>” 


MOV 


E -200/A1,0 


FOR X=(-200/A1>/aumento(2) TO X5 STEP S 


IF k1$(5)="S' THEN LOCATE 1,6: PRINT *”X:”;XPOS; : LOCATE 1,7: PRINT"Y:”; YPOS” 


IF XxA1>32750 OR YxA2>32750 OR Xx*A1<-32750 OR YxA2<-32750 THEN 2520 
IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THEN 2 


IF k1$(7)="N"” THEN 
px=X*xAl*xaumento(1> 

py=INT(FN y(X>*A2*kaumento(2)> 
PLOT px, py 

NEXT 

LOCATE 1,8 
PRINT"Funcion:-f(x)” 

MOVE X5,0 


FOR X=XS5 TO 200/41 STEP S 


IF k1$(5)="S” THEN LOCATE 1,6: PRINT ”X:”;XPOS; : LOCATE 1,7: PRINT"Y:”;¡YPOS” 


IF XxA1>32750 OR YxA2>32750 OR X*xA1<-32750 OR YxA2<-32750 THEN 2630 
IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THEN 2 


IF 


pe 


k15(7)="N'"” THEN 


XxAlkaumento(1> 


py=INT(-C(FN y(X>*A2*kaumento(2))) 


PLO 
NEX 
Loc 


T px, py 
e 


ATE 1,8 


PRINT"Funcion:-f(-x)>” 


MOV 


FOR X=((-200/A1)>)/aumento(2)) TO X5 STEP S 


E -200/A1,0 


2680 


2690 
2700 
750 

2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 


2880 
2890 
2940 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 


2990 
3000 
050 

3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 


3100 
3110 
160 

3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 


3210 
3220 
3230 
3240 
3250 
3260 
3270 


IF k1$5(5)="S"” THEN LOCATE 1,6:PRINT ”X:”;XPOS; : LOCATE 1,7: PRINT"Y:"; YPOS” 
IF XxA1>32750 OR YxA2>32750 OR Xx*A1<-32750 OR Y*A2<-32750 THEN 2740 
IF k15(7)="N"” THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THEN 2 


px=Xx*xAl*xaumento(1)> 

py=INT<(-CFN y(X>*xA2*kaumento(2))>) 

PLOT px,py 

NEXT 

LOCATE 1,12 

PRI NT OSOOOOOOOOOIOOOOJOK”” 

LOCATE 1,13 

PRINT"*XPULSA UNA TECLAX” 

LOCATE 1,14: PRINT*dadaaOdMOOlSOlOlOjSjojOldlolojok”? 

CALL €BB06: REM EN ESPERA DE QUE SE PULSE UNA TECLA 

GOTO 490 

ON ERROR GOTO 3380 

LOCATE 1,8 

PRINT”Funcion: f(x)” 

MOVE X5,0 

FOR X=X5 TO 200/A1 STEP S 

IF k1$(5>="S” THEN LOCATE 1,6: PRINT ”X:”;XPOS; : LOCATE 1,7: PRINT”Y:”; YPOS” 
IF X*xA1>32750 OR Y*A2>32750 OR X*xA1<-32750 OR YxA2<-32750 THEN 2930 

IF k1$8(7>)="N'"” THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THEN 


px=XxAlxaumento(1> ; 
py=INTC(FN y(X>*A2*kaumento(2)) 


DRAW px, py 
NEXT 
LOCATE 1,8 


PRINT"Funcion: f(-x)>” 

MOVE -200,0 

FOR X=(-200/A1>/aumento(2> TO X5 STEP S 

IF k19(5>="S" THEN LOCATE 1,6: PRINT *X:”:;XPOS; : LOCATE 1,7:PRINT"Y:”: YPOS” 


IF XxA1>32750 OR YxA2>32750 OR XxA1<-32750 OR Yx*A2<-32750 THEN 3040 
IF k1$(7>)="N'" THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THEN 3 


px=Xx*xAlx*xaumento(1)> 

py=INT(FN y(X>*xA2*aumento(2)) 

DRAW px, py 

NEXT 

LOCATE 1,8 

PRINT"Funcion: -f(x)” 

MOVE X5,0 

FOR X=X5 TO 200/A1 STEP S 

IF k1$(5)="S” THEN LOCATE 1,6:PRINT ”X:”;XPOS; : LOCATE 1,7: PRINT"Y:”;¡YPOS” 
IF XxA1>32750 OR Y*xA2>32750 OR XxA1<-32750 OR YxA2<-32750 THEN 3150 

IF k1$8(7)="N"” THEN IF XPOS>205 OR XPOS<-205 OR YPOS>205 OR YPOS<-205 THEN 


px=X*xAlkaumento(1> 
py=INT(-CFN y(X>*A2*xaumento(2))) 


DRAW px, py 
NEXT 
LOCATE 1,8 


PRINT”"Funcion:-f(-x)” 

MOVE -200,0 

FOR X=(-200/A1>/aumento(2> TO X5 STEP S 

IF k18(5)="S” THEN LOCATE 1,6: PRINT *X:*”; XPOS; : LOCATE 1,7: PRINT”"Y:*"”; YPOS"” 
IF XxA1>32750 OR YxA2>32750 OR XxA1<-32750 OR YxA2<-32750 THEN 3260 

IF k18(7)="N"” THEN IF X>205 OR X<-205 OR YPOS>205 OR YPOS<-205 . THEN 3270 
px=XxAl*xaumento(1> 

py=INT(-CFN y(X>*xA2*kaumento(2))) 

DRAW px, py 

NEXT 

LOCATE 1,12 
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3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
8390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 


PRINTS dll loldlOjolojojok” 

LOCATE 1,13 

PRINT"x*xPULSA UNA TECLAX” 

LOCATE 1,14 

PRINTS Old lOlOOJOJok”” 

CALL £BBOG: REM EN ESPERA DE QUE SE PULSE UNA TECLA 


GOTO 490 

REM 

REM ===== TRATAMIENTO DE ERRORES ===== 
REM 

LOCATE 1,9 

PRINT "xxxERROR SOBREPASA RANGO” 
RESUME NEXT 

END 

REM : 
IRTE 


REM adookxk DIBUJA CUADRICULA AMOO Ok 
REM ASS SMS lO SOS IS OOOO lO O JOJOJOK 
REM 

ORIGIN 440,200 

MOVE 200,38: DRAW -200,38 

MOVE 200,76: DRAW -200,76 

MOVE 200,114: DRAW -200,114 

MOVE 200,152: DRAW -200, 152 

MOVE 200, 190: DRAW -200,190 


MOVE 200,-38 :DRAW -200,-38 

MOVE 200,-76: DRAW -200,-76 

MOVE 200,-114: DRAW -200,-114 

MOVE 200,-152: DRAW -200,-152 

MOVE 200,-190: DRAW -200,-190 

MOVE 38,200: DRAW 38,-200 

MOVE 76,200: DRAW 76,-200 

MOVE 114,200: DRAW 114,-200 

MOVE 152,200: DRAW 152,-200 

MOVE 190,200: DRAW 190,-200 

MOVE -38,200:DRAW -38,-200 

MOVE -76,200: DRAW -76,-200 

MOVE -114,200: DRAW -114,-200 

MOVE -152,200: DRAW -152,-200 

MOVE -190,200: DRAW -190,-200 

RETURN 

END 

REM 
TES 
REM AMSSSOMOOO KK DATAS AMOO OIOIOOOJOOOK 
REM ASS OOOO OOOO OOO OOOO OOOO IOIOOJOJOJOK: 


REM 

DATA P,T,1...Punto o Trazo. ( 

DATA S,N,2...Dibuja eje x. ( 

DATA S,N,3...Dibuja eje y. ( 

DATA S,N,4...STEP Auto.  C 

DATA S,N,5...Escribe valores de x e y. ( 
DATA R,G,6...Fn. Tri. Radianes o Grados. ( 
DATA 8,N,7... 

DATA S,N,8...Dibuja cuadricula. ( 


RARARAA L 
A fs L 
RARRAA L 
A eL 
A A L 
A tu. 


9,9 
Puicion: 80) 
+HERROR SOBREPASA RANGO 


ES 
EC 
HHHHHH H 


aida 
*PULSA UNA TECLAX 
a A RR 


o 

ln] 

ao, 
00000 


S35s53s8s 
35555 
3 


DIVVVD 
 HHHHHH HH 
200000 


Ss 
ss95s5 


0 
o 
a] 


PULSA UNA TECLA PARA CONTINUAR: 


A 


“3 Dibujo de la función. 


Presentación del programa. 
y = f(-x) 
00 = (AV1-x)/Vx+1) 


' Programa: TRIVIAL RIOS in poa 
para SPECTRUM is 


«TAJO 

A continuación aparece la versión del . GUADIANA 
programa TRIVIAL RIOS que ya apareció co E 
para otros ordenadores y que ahora apa- 
rece para el SPECTRUM. 

El programa tiene 54 preguntas distin- 
tas que nos irán apareciendo una a una. 
Tras la pregunta nos aparecerán cuatro 
posibles respuestas y nosotros tendremos 
que pulsar la adecuada. 

Una vez terminada la sesión de pregun- 
tas el ordenador nos dirá qué tal lo he- 
mos hecho y cuál ha sido nuestra puntua- 
ción. 


El programa preguntándonos. 


ES 
doo TRIVIAL RIOS xxx 
ES 
*x POR J.M.GUTIERREZ * 
ES 


REM ASS S SS lSSSlSlE SES lSO Sl” JOKAK 
REM * (c) Ediciones Siglo Cultural * 
REM * (c) 1987 k 
REM ROSS SSI lSS ISSO OOOO ok 
REM 

POKE USR "N"+0,BIN 01111110 

POKE USR "N"+1,BIN O 

DIM t(75) 

DIM a(3) 

DIM r$(12,20) 

CLS 


2 PROGRAMAS 


120 PRINT " I yo 

130 PRINT 

140 PRINT "TTTTT RRRR I V V I AAAAA L E 
ISOSPRINT 4 E. RR RI V Mi LIB A A $ 
180 PRENT >». T  RRRR 1: V: V TI AAÑALN L y 
IMOPEREN TAS E E 1 VW. TA: AL y 
180 PRINT => PT RR RI VV A z 
IPOGBRINT 0. RR RAI vv IA  ALLLL" 
200 PRINT 

210 PRINT 

220 PRINT " L” 

230 PRINT 

240 PRINT ” RRRRR 1 00000 SSSSS 

250 PRINT " RS RTICO: 08" 

260 PRINT "' RRRRR IO O 53355 

270 PRINT " KR. ¡R- 150 DD S 

280 PRINT ” E HALO ca Ss" 

290 PRINT "” R RUI 00000 SSSSS" 

291 REM 


292 REM AddSS SS SlSlS SEIS? SS”SSlSSlSlS””l”lEIEl”lEl”l”SS” SS” lll” NOOO: 
300 REM * CONTADORES DE RESPUESTAS ACERTADAS Y EQUIVOCADAS x* 
301 REM A+MRSRSOS SONS lSS ESSE SES ao EO ajajaja aaa aaa alolalalokakakok 
302 REM 

310. FOR i=1-TO 25 

320 BEEP .05,-30+INT (RNDx*50) 

330 NEXT i 

340 PRINT FLASH 1;AT 21,1;"PULSA UNA TECLA PARA CONTINUAR" 
350 LET k$=INKEYS$ 

360 JF k$="" THEN GO TO 350 

370 CLS 

380 PRINT FLASH 1;AT 5,0;"CARGANDO DATOS,POR FAVOR ESPERE" 
381 REM 

382 REM AddSdSSIES'PIPlESIESIPSIPlESl?lPl”lESj”SlESlESlESjElO lalola lajalOJOJOJOK 

390 REM * CARGA DE LOS DATOS DE LOS RIOS *x 

391 REM A*MSSSS ISS SOSA jSlSlEE OS jSl”lSlO SS lalololO lolo jojok 

392 REM 

400 GO SUB 1150 

401 REM 

402 REM ASSSSSN SOS aaa iaa aaa add aaa iaa iaa alada Kok ok 

410 REM * CARGA DE LOS DATOS DE LA TABLA DE RESPUESTAS * 

411 REM AdMSSSSSISISjESjSl”j”lEl”lEl” IEEE” k ok 

412 REM 

420 GO SUB 2040 

421 REM 

422 REM ASMSSSOO OSOS SOS SS SOE OOOO OOOO OOOO OOOO OOOO OOO dd dk 
430 REM * EL SIGUIENTE BUCLE FOR SE EJECUTA TANTAS VECES COMO PREGUNTAS HAY x*x 
431 REM AdeddSS SSP” 'ESIE”SElE””El” El] a al al ak 
432 REM 

438 REM AsaSSS SOS lSO OSI” OOO jolololOdalallk 

440 REM * EN ESTE CASO HAY 54 PREGUNTAS * 

441 REM AMRSSSSS SS SSlSSSSSSSSlSlSlSlSISl”lSlEldl”SIVIOIOK 

442 REM 

450 LET bi=0 

460 LET ma=0 

470 RESTORE 1480 

480 FOR i=1 TO 54 

481 REM 

482 REM ASS S SES SSlSlS ESSE” l”S OSI lE ES” lololOloKak 

490 REM * TR A LA SUBRUTINA DE DIBUJO DE LA VENTANA x* 

491 REM RRMSIS PSSS ISSO PSSS KSl”S SOS” S Sl” S Ojo O OK 

492 REM 

500 CLS 

510 PRINT AT 0,10; FLASH 1;"TRIVIAL RIOS" 

520 GO SUB 2240 

530 READ p$ 

540 LET re=t(i) 

550 RANDOMIZE PEEK 23672 

560 LET a(1)=INT (RNDx12)+1 

570 IF a(1)=re THEN GO TO 550 


580 RANDOMIZE PEEK 23672 

590 LET a(2)=INT (RND*x12)+1 

600 IF a(2)=a(1) OR a(2)=re THEN GO TO 580 

610 RANDOMIZE PEEK 23672 

620 LET a(3)=INT (RNDx*x12)+1 

630 IF a(3)=a(2) OR a(3)=a(1) OR a(3)=re THEN GO TO 610 
640. LET po=INT (RND*4)+1 

645 REM 

650 REM *x*x* PO ES LA POSICION EN LA VENTANA DE LA RESPUESTA xxx 
655 REM 

660 PRINT AT 3+po*2,5;po;".-";r$(re) 

670 LET k=1 

680 FOR j=1 TO 3 

690 IF po=. THEN GO TO 710 

700 GO TO 740 

710 LET k=k+1 

720 PRINT AT 3+kx*2,5;k;".-";r$(a(j)) 

730 GO TO 750 

740 PRINT AT 3+kx*x2,5;k;".-";r$(a(j)) 

750 LET k=k+1 

760 NEXT ¡ 

770 PRINT+AT 18,051; ").-—"“ ¡ps 

780 INPUT c$ 

785 REM 

790 REM *** C$ ES LA CONTESTACION DADA A UNA PREGUNTA *xkxk 
795 REM 

800 IF LEN c$>1 OR c$="" THEN BEEP .30,20: GO TO 770 
810 IF c$<"0" OR c$>"9" THEN BEEP .30,20: GO TO 770 

820 IF VAL c$<1 OR VAL c$>4 THEN BEEP .30,20: GO TO 770 
830 IF VAL c$=po THEN GO TO 890 

840 BEEP .20,-30 

850 PRINT INVERSE 1;AT 21,10;” MUY MAL 

860 LET ma=ma+1 

870 PRINT AT 3+pox*2,5; FLASH 1;po; FLASH 0;".-";r$(re) 
880 GO TO 920 

890 BEEP .20,30 

900 PRINT AT 21,10; INVERSE 1;" MUY BIEN y 

910 LET bi=bi+1 

920 FOR f=1 TO 200 

930 NEXT f 

940 PRINT AT 21,7; INVERSE 1;"SPACE"; INVERSE 0;" PARA TERMINAR" 
950 LET k$=INKEYS$ 

960 IF k$="" THEN GO TO 950 

970 IF k$=" " THEN GO TO 1000 

980 NEXT i 

990 LET i=i-1 
1000 CLS 

1010 PRINT AT 0,5; INVERSE 1; FLASH 1; "RESULTADO DEL CONTROL" 
1020 PRINT AT 3,0;"respuestas acertadas =-> ";bi 

1030 PRINT AT 5,0;"respuestas falladas --> "¡ma s 
1040 PRINT AT 7,0;"preguntas hechas Ad 

1050 PRINT AT 9,0; BRIGHT 1;"porcentaje hidrografico --> ";INT ((bi/i)*100);"%" 
1060 PRINT AT 12,0;"QUIERES EMPEZAR DE NUEVO(S/N) ?" 

1070 LET k$=INKEY$ 

1080 IF k$="" THEN GO TO 1070 

1090 IF k$="S" OR k$="s" THEN GO TO 430 

1100 CLS 

1110 GO TO 2380 

1111 REM 

1120 REM AdsSRS ROSS SOS SES laSlSO Ela ajaja lla lalola lOIOJOK 
1130 REM * DATAS DE LOS PRINCIPALES RIOS DE LA PENINSULA *x 
1140 REM des S AMAIA SISSI SISSI lll 
1141 REM 

1150 DATA "MI"+CHR$ 157+"0" 

1160 DATA "DUERO" 

1170 DATA "TAJO" 

1180 DATA "GUADIANA" 


1190 
1200 


DATA "GUADALQUIVIR" 
DATA "EBRO" 


2 PROGRAMAS 


1210 
1220 
1230 
1240 
1250 
1260 
1263 

1270 
1280 
1290 
1300 
1320 
1330 
1340 
1341 
1350 
1360 
1370 
1380 
1390 
1391 
1400 
1410 
1420 
1440 
1450 
1460 
1470 
1471 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 


"JUCAR" 
“SEGURA” 
“NALON" 
"NERVION" 
“BIDASOA” 
“TURIA” 


REM SMS ISSO SISSI OOO OK 


REM * FIN DE DATAS DE RIOS * 
REM MSM OSMOSIS SISI SRSJSJVIOROJOK 


REM 


REM MOSSOS SS SS S EOS OSOS OS ESSE SlOlSO OOOO OK 


REM * CREACION DE LA TABLA DE LOS RIOS * 
REM SOS SISSSIO SISSI ISSO OSOS IOJOOJOK 


REM 


RESTORE 1150 
FOR 121, TO 12 
READ r$(i) 


NEXT 


i 


RETURN 


REM 


REM SISSI SS SS SO SSIS SEIS] jSESjO OSO OISIOlOIOJOJOK 


REM * FIN DE LA CREACION DE LA TABLA * 
REM SOS SIS SIS SISSI 


REM 


IAN E E ETE TEE TES 


REM * PREGUNTAS DE LOS RIOS * 
REM dSSSlS SS ISO SISSI OOO IOIOROKK 


REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"QUE RIO PIRENAICO DESEMBOCA EN EL CANTABRICO?" 

"QUE RIO DESEMBOCA EN PUENTE FORCINAS?" 

"EL RIO CABRIEL ES UN AFLUEN-TE DEL..." 

"EL RIO TAMBRE ES UN AFLUEN- TE DEL...” 

"EL RIO GUADIANA MENOR ES UN AFLUENTE DEL...” 

"QUE RIO DESEMBOCA EN OPORTO?" 

"QUE RIO PASA POR BURGOS?" 

"QUE RIO DESEMBOCA EN AYA - MONTE (HUELVA) ?" 

"QUE RIO DESEMBOCA EN LA GUARDIA?" 

"EL RIO GALLO ES UN AFLUENTE DEL...” 

"EL RIO TORMES ES UN AFLUEN- TE DEL...” 

"EL RIO ESLA ES UN AFLUENTE DEL...” 

"QUE RIO PASA POR ORENSE?" 

"QUE RIO PASA POR LA CIUDAD DE TOLEDO?" 

"QUE RIO EN SU TRAMO FINAL SEPARA ESPA"+CHR$ 157+"A DE FRANCIA?" 
"QUE RIO NACE EN PE"+CHR$ 157+"A ORDU"+CHR$ 157+"A (ALAVA)?" 
"QUE RIO PASA POR ELIZONDO?" 

"EL RIO MUNDO ES UN AFLUENTE DEL...” 

"QUE RIO DESEMBOCA EN CULLE-RA?" 

"QUE RIO PASA POR SORIA?" 

"EL RIO JALON ES UN AFLUENTE DEL...” 

"EL RIO GENIL ES UN AFLUENTE DEL...” 

"QUE RIO NACE ENTRE LAS SIE-RRAS DE ALCON Y CAZORLA?" 
"QUE RIO PASA POR CORDOBA Y SEVILLA?" 

"QUE RIO NACE EN FONTIBRE (SANTANDER) 7?" 

"QUE RIO PASA POR ZARAGOZA?" 

"QUE RIO DESEMBOCA EN SANLU-CAR DE BARRAMEDA (HUELVA) ?” 
"EL RIO CADAGUA ES AFLUENTE DEL...” 

"QUE RIO NACE EN LA PROVIN -CIA DE ASTURIAS?" 

"QUE RIO PASA POR BILBAO?" 

"QUE RIO NACE JUNTO AL CERRO DE SAN FELIPE EN CUENCA?” 
"QUE RIO DESEMBOCA EN GUAR -DAMAR (ALICANTE)?" 

“QUE RIO PASA POR VALENCIA?" 

"QUE RIO NACE EN LA LAGUNA DE FUENMI"+CHR$ 157+"A (LUGO)? 
"EL RIO SIL ES UN AFLUENTE DEL...” 

“EL PISUERGA ES UN AFLUENTE DEL...” 

"QUE RIO ES EL MAS LARGO DE LA PENINSULA (1.120 Km)?" 
"QUE RIO NACE EN LOS PICOS DE URBION?" 

"QUE RIO NACE EN LA SIERRA DE ALBARRACIN?" 


1870 DATA "QUE RIO PASA POR LA CIUDAD DE BADAJOZ?" 

1880 DATA "EL RIO GUADALBULLON ES UN AFLUENTE DEL..." 
1890 DATA "EL RIO CHANZA ES UN AFLUEN-TE DEL..." 

1900 DATA "QUE RIO NACE EN FUENTE SE -GURA (JAEN)?" 

1910 DATA "EL RIO TAIBILLA ES AFLUENTE DEL..." 

1920 DATA "EL RIO HIJAR ES UN AFLUENTE DEL..." 

1930 DATA "EL RIO GALLEGO ES AFLUENTE DEL...” 

1940 DATA "QUE RIO DESEMBOCA EN LA CIUDAD DE LISBOA?" 
1950 DATA "EL RIO GUADIELA ES AFLUENTE DEL..." 

1960 DATA "EL RIO ARAGON ES UN AFLUEN-TE DEL...” 

1970 DATA "EL RIO IBAIZABAL ES AFLUEN-TE DEL..." 

1980 DATA "QUE RIO NACE EN CASAS DE FUENTE GARCIA .(TERUEL)?" 
2030 REM 

2040 REM MASSON SISMO lllRIOIOTOK 

2050 REM * CREACION DE LA TABLA DE RESPUESTAS * 

2060 REM aaa SAS lASS SISMOS lOIllVlRROIOJOK 

2061 REM 

2070 RESTORE 2130 

2080 FOR f=1 TO 54 

2090 READ b 

2100 LET t(f)=b 

2110 NEXT f 

2120 RETURN 

2190 DATA. 119,7, 149,B.2,0,14, 1,3 

2140 DATA'2,2,1,3,11;10,9,11,8,7 

2150 DATA 2,6,4,5,5,6,6,5,10,9 

2160. DATA 10,7,8,711.1.2,3,2.3.1 

2170 DATA 5,4,5,8,8,6,6,3,3,6,10 

2180 DATA 3 

2181 REM 

2190 REM AdMASSSS MSIE: 
2200 REM * FIN DE LA CREACION DE LA TABLA DE RESPUESTAS * 
2210 REM aMSN MSI Illa IOOKK 
2230 REM 

2240 REM aaa SISSI Illa 

2250 REM * RUTINA DE CREACION DE VENTANAS * 


2260 REM IGSS OSOS ISSO SOS Sl lJOK ak 
2261 REM 

2270 LET x1-3 

2280 LET x2=28 

2290 LET y1=2 

2300 LET y2=16 

2310 FOR f=x1+1 TO x2-1 

2320 PRINT AT y1,f;CHR$ 143:AT y2.f;CHR$ 143 
2330 NEXT f 

2340 FOR f=y1 TO y2 

2350 PRINT AT f,x1;CHR$ 133;AT £,x2;CHR$ 138 
2360 NEXT f 

23'0 RETURN 


Diferentes 
tipos de 
¡ Codigos 
E pueden clasificar 
los códigos en dos 
grandes grupos des- 
de el punto de vista 
semántico: códi 
mnemónicos y códi- 
gos crípticos. 
Denominamos 
mnemónicos a los códigos que aportan 
en los propios caracteres con que se for- 
man y/o en la estructura del código, in- 
formación sobre su significado. Con el 
neologismo «críptico» queremos signifi- 
car que en los códigos así designados ni 
los signos que componen el código ni su 
situación aportan información alguna so- 


bre el significado del código o la natura- 
leza del elemento a que se refieren. 


a) Códigos mnemónicos 


Estos códigos tienen la gran ventaja de 
que su utilización por las personas es más 
cómoda y segura (es más fácil de recor- 
dar, el propio código sugiere su _aplica- 
ción, los errores se detectan más fácil- 
mente, etc.). Tienen, por el contrario, la 
desventaja de que suelen ser más largos 
(para que el código realmente sugiera 
algo y no sea un crucigrama) y, como in- 
corporan letras (e incluso en ocasiones 
símbolos especiales) su proceso por or- 
denador puede ser más complicado. Los 
códigos mnemónicos pueden ser de dos 
tipos: 


TECNICAS DE ANALISIS 


— Con subcampos: son aquellos códi- 
gos organizados en diferentes campos, 
cada uno de los cuales tiene una signifi- 
cación diferente. Ejemplo de este tipo de 
códigos es el número de matrícula de los 
vehículos a motor en España; en ella hay 
tres campos: el primero, de una o dos le- 
tras, indica la provincia de matriculación 
(normalmente la inicial y, cuando hay 
ambigúedad entre dos provincias, otra 
letra característica); el segundo es un 
campo de cuatro dígitos con una nume- 
ración correlativa; el tercero, de dos le- 
tras, es una serie correlativa también. 
Normalmente las entregas efectuadas 
por una compañía suelen realizarse bajo 
un código de este tipo: una configura- 
ción de código típica es la siguiente: 


99/99/99/9999/999 


donde los tres primeros grupos de dos dí- 
gitos representan la fecha, el siguiente el 
número de pedido y el último el de cliente. 


— De abreviatura: se llaman así a los 
codigos formados mediante la contrac- 
ción del nombre completo que designa 
al elemento. Así, por ejemplo, se puede 
designar por «FICHMAS» al fichero maes- 
tro de una aplicación. Es usual utilizar un 
código mixto en que la primera parte es 
una abreviatura y va seguida de un nú- 
mero identificativo; por ejemplo, se pue- 
den designar los diferentes ficheros de 
actualizaciones de una aplicación por 
los nombres «ACT1502», «ACT2302», 
«ACTO503», etc. 


b) Códigos crípticos 


Este tipo de código es más útil para su 
proceso por ordenador, pero más difícil 
de manejar por las personas. Se pueden 
considerar cuatro tipos diferentes de có- 
digos crípticos: 


— Secuencial: es la codificación más 
simple que se puede concebir: consis- 
tente en ir numerando, sucesivamente, 
los diferentes elementos del conjunto a 
codificar. Es muy sencilla de utilizar y per- 
mite muy fácilmente las extensiones de 
la serie de códigos ya establecidos, tie- 
ne el inconveniente de que no permite 
las inserciones y el problema (por lo de- 
más común a todos los códigos crípticos) 
de que es difícilmente recordable y no 
aporta, por su estructura, ninguna facili- 
dad para el procesamiento de los datos. 
Es usual añadir a este tipo de códigos al- 
gún o algunos caracteres (normalmente 
dígitos) de control; así suelen ser los nú- 
meros de las cuentas bancarias (aunque, 
en ocasiones, suelen tener estructura de 
subcampos). 

— Secuencial, con incrementos mayo- 
res que la unidad. Se construye este tipo 
de códigos cuando es previsible una ac- 
tividad grande de inserción de nuevos 
códigos, pero la identificación de cada 
elemento mediante el código no es inte- 
resante en absoluto. Esta es la situación 
típica del número de secuencia que se 
pone en las líneas de programa: es usual 
numerarlas de diez en diez unidades 
(0010, 0020, 0030..., 0090, 0100, etc.); de 
este modo, las posteriores actualizacio- 
nes van recibiendo números intermedios 
(en el ejemplo anterior, 0013 y 0016, por 
ejemplo, en una primera actualización; 
0011,0017 y 0019 en una segunda, etc. 


Naturalmente, el proceso de intercala- 
ción nunca puede ser indefinido, aunque 
si se prevé una actividad de inserción 
grande, suele utilizarse un módulo de in- 
cremento de la secuencia de intercala- 
ción mayor (numerar de cien en cien o 
de mil en mil). 


— Secuencial por grupos. Se numeran 
secuencialmente los elementos, pero ha- 
biéndolos separado previamente en gru- 
pos. Por ejemplo, se reservan los prime- 
ros cien números para los diferentes mo- 
delos de ordenadores disponibles (001 
Spectrum, 002 Spectrum Plus, 003 Com- 
modore 64, 004 MSX, etc.), los siguientes 


cien para los periféricos (100 Impresora 
Epson, 101 C. Itho, 102 bmc, etc.), otros 
cien sucesivos para los paquetes de soft- 
ware (200 Contabilidad, 201 Factura- 
ción, etc.). Este tipo de código aporta al- 
guna información sobre el elemento re- 
presentado pero sigue exigiendo alguna 
tabla de conversión y referencia. 


— Por subcódigos estructurados. En 
ocasiones, se define una estructura de 
subcampos y subcódigos, pero de tal 
modo que, dentro de cada subcódigo, la 
numeración sea secuencial. Por ejem- 
plo, el código de series que acaba de 
ser presentado podía estructurarse del si- 
guiente modo: 


9/99/99/9/999 


tomando el primer dígito para represen- 
tar la línea de productos (1 ordenadores 
domésticos, 2 ordenadores personales, 3 
miniordenadores, etc.), los dos siguien- 
tes para la marca (01 Sinclair, 02 Sony, 03 
Philips, 04 Commodore, etc., dentro de la 
línea de productos 1; por supuesto, sue- 
le volver a aparecer Philips, o Sony en la 
línea 2, y así con las restantes), otros dos 
para el modelo (dentro de la linea 1 y de 
la marca 01, 01 puede ser el modelo 
Spectrum 48K, 02 el Spectrum Plus, etc., 
99 todos los modelos —código útil cuan- 
do un paquete de software o un periféri- 
co sirve para todos los modelos de un 
tipo—, uno más para el tipo de producto 
dentro de cada marca (1 para el propio 
ordenador, 2 para periféricos, 3 para 
software, etc.), y, por fín, tres digitos para 
identificar a cada elemento del subcon- 
junto de que se trate. 


Utilización de los códigos 


Es importante tener en cuenta, asimis- 
mo, las posibles utilizaciones de un códi- 
go en el momento de su elección y, se- 
gún sus características, disponer (o no) 
información de ayuda para quien debe 
escribir el código (incluir la tabla de va- 
lores posibles), estudiar su posición en un 
impreso según la complejidad del siste- 
ma elegido, prever controles adecuados 
durante el proceso de depuración de los 
datos si los códigos son poco (o nada) 
mnemotécnicos, etc. 


Programación 
modular 
(continuación) 


N APL, un procedi- 
miento se define 
exactamente igual 
que una función, con 
la única diferencia 
de que no existe re- 
sultado y, por tanto, 
no aparece en la lí- 
nea de cabecera un nombre de variable 
separado de la función por una flecha de 
asignación. Además, al igual que en PAS- 
CAL, un procedimiento se invoca sin ne- 
cesidad de utilizar palabras reservadas, 
simplemente mencionando su nombre. 

En APL, los argumentos de funciones y 
procedimientos están limitados a un 
máximo de dos. Además, no se expresan 
obligatoriamente entre paréntesis, a la 
derecha del nombre del módulo o subru- 
tina, sino a derecha e izquierda. Es posi- 
ble, sin embargo, definir tanto procedi- 
mientos como funciones con un solo ar- 
gumento o con ninguno (recuérdese la 
función MEDIA, del capítulo anterior). 
Todo esto significa que en este lenguaje 
existen seis formas diferentes de subpro- 
gramas: funciones o procedimientos (es 
decir, módulos con o sin resultado) con 
cero, uno o dos argumentos. Veamos 
qué forma tomarían sus cabeceras, utili- 
zando los nombres X e Y para los argu- 
mentos, el nombre Z para el resultado, y 
nombres que comienzan por F para las 
funciones y por P para los procedimien- 
tos. (Naturalmente, podríamos haber uti- 
lizado cualquier otro nombre para todas 
estas variables y subprogramas). 


TECNICAS 
DE PROGRAMACIÓN 


vPO 
vP1 X 

VE Pe-xX 
vZ+-FO0 
VZ+F1 X 
VZ+Y F2 X 


Los ejemplos anteriores representan las 
cabeceras en el siguiente orden: 


1. Procedimiento sin argumentos. 
2. Procedimiento con un argumento. 
3. Procedimiento con dos argumen- 


4. Función sin argumentos. 
5. Función con un argumento. 
6. Función con dos argumentos. 


La forma de invocar los subprogramas 
anteriores es semejante a la que presen- 
tamos en los ejemplos siguientes: 


PO 
P1 14 

2 P2 3 

A+F0+3 

F1 Ss 

Q+2+(13) F2 4 


cuya explicación es como sigue: 


1. PO es un procedimiento sin argu- 
mentos ni resultado. Por tanto, la única 
forma posible de invocarlo es mediante 
una línea donde aparezca su nombre to- 
talmente aislado. 

2. Pl tiene un argumento derecho, 
que puede ser sustituido por cualquier 
expresión (en nuestro ejemplo, la serie 
de números del 1 al 4). Pero, como notie- 


ne resultado, no se puede operar con él, 
por lo que su nombre deberá aparecer 
en el extremo izquierdo de la línea. 

3. P2esun procedimiento con dos ar- 
gumentos, uno de los cuales debe escri- 
birse a su izquierda y el otro a su dere- 
cha. En nuestro ejemplo, estos _argumen- 
tos son, respectivamente, los números 2 y 
3. Cualquiera de ellos puede sustituirse 
por una expresión, pero en tal caso, el de 
la izquierda al menos debe escribirse en- 
tre paréntesis (los paréntesis a la dere- 
cha son optativos). 

4. FO es una función sin argumentos. 
Por tanto, se la invoca únicamente con 
su nombre, pero como tiene resultado 
puede entrar a formar parte de una ex- 
presión, como la del ejemplo. Lo que 
hace esta línea es obtener el valor gene- 
rado por FO, sumarle 3 y asignar el resul- 
tado a la variable A. 


5. Fl es una función con un argumen- 
to, que debe colocarse siempre a su de- 
recha. En nuestro caso, se trata del valor 
5. Como la línea no se prolonga a la iz- 
quierda de Fl, y ésta tiene resultado ex- 
plícito, dicho resultado se escribirá auto- 
máticamente en la pantalla. (Recuérde- 
se que, en APL, cualquier línea que no 
termine en una asignación o una transfe- 
rencia y tenga resultado explícito equi- 
vale a una orden de que dicho resultado 
se escriba en la pantalla.) 

6. Finalmente, F2 es una función con 
dos argumentos. El derecho será el nú- 
mero 2 y el izquierdo la serie de números 
de 1 a 3. (Obsérvese que, al igual que en 
los procedimientos, el argumento izquier- 
do debe siempre colocarse entre parén- 
tesis, si se trata de una expresión y no de 
un valor aislado.) Al resultado de la fun- 
ción se le suma 2 y el valor final queda 
asignado a la variable G. 


Hemos visto que los argumentos y el re- 
sultado de las subrutinas APL son siempre 
variables locales. Es decir, su valor no en- 
tra en conflicto con otros que pueda to- 
mar una variable con el mismo nombre 
fuera del módulo, aunque este valor será 
inaccesible dentro de él. Además, pode- 
mos incluir otras variables locales, a 
nuestro gusto. Hay dos formas principales 
de hacerlo: 


— Todas las etiquetas definidas dentro 
de una subrutina APL se consideran auto- 
maticamente como variables locales, 


cuyo valor es igual al número de la línea 
en que están definidas. No es posible 
asianar otros valores a estas variables. 
— Todos los nombres que aparezcan 
en la cabecera de la subrutina, después 
del argumento derecho (si existe) o del 
nombre del módulo (si no tiene argumen- 
tos), separados por puntos y comas, se 
considerarán variables locales, que ini- 
cialmente no tendrán valor alguno. 


Veamos algunos ejemplos de funcio- 
nes y procedimientos APL: 


VZ+M VAR N 
[1] Ze(1M)+(1M-N) 


Esta función de dos argumentos calcu- 
la el número de variaciones sin repeti- 
ción que se pueden formar con M ele- 
mentos tomados de N en N, donde nos 
importa el orden en que aparezcan (es 
decir, 12 3 4 es una variación distinta de 
4 3 2 1) aplicando la conocida fórmula 
que calcula dicho número como el co- 
ciente entre el factorial de M y el facto- 
rial de M - N. En APL, el signo de admira- 
ción colocado a la izquierda de un nú- 
mero, calcula directamente el factorial 
de dicho número. Veamos algunos ejem- 
plos del uso de esta función: 


Si se utiliza con dos argumentos, uno a 
su derecha y el otro a su izquierda (N!IM), 
el signo de admiración calcula en APL el 
número de combinaciones sin repetición 
que se pueden formar con M elementos 
en grupos de N, sin importarnos el orden 
de los elementos dentro de un mismo 
grupo. Veamos algunos ejemplos: 


2 TECNICAS DE PROGRAMACION 


valor de | es menor o igual que el del ar- 
gumento N. 


Veamos el organigrama de esta fun- 
ción: 


2 
234015 

10 105 1 
01230455 

12510 10 S 2 
(0,15)!5 

15 10 10 5 2 


Se observará que esta operación pue- 
de aplicarse lo mismo a números aisla- 
dos como a series de ellos. Vamos a uti- 
lizarla para hacer un procedimiento que 
nos permita construir el triángulo de Tar- 
taglia, que nos genera los números com- 
binatorios en filas sucesivas: 


Hacer 1+4 


tl 


VTARTAGLIA N;I 


11] I+-1 
(23 L:(0,11)1I 
[31] IrI+1 


>(ISN)/L 


Veamos cómo funciona este procedi- 
miento: 


— la cabecera nos dice que el nam- 
bre del procedimiento es TARTAGLIA, y 
que tiene un argumento derecho llama- 
do N (el número de línea del triángulo de 
Tartaglia que deseamos obtener) y una ) 
variable local, |, que actuará como con- y un ejemplo de su utilización: 
tador de líneas. 

— La línea 1 asigna el valor inicial a la 
variable |. 

— la línea 2 tiene una etiqueta (L), 
también local. Lo que hace esta línea es 
generar (y escribir en el terminal), pues 
no termina en asignación ni en transfe- 
rencia) una línea entera del triángulo de 
Tartaglia, produciendo los números com- 
binatorios de | elementos tomados de to- 
das las formas posibles (desde O en O 
hasta | en |). 

— La línea 3 incrementa el valor del 
contador. 

La línea 4 es una transferencia condi- 
cional a la instrucción de etiqueta L si el 


TARTAGLIA 10 


1 

2 

3 

4 1 

3:10 10-38 

6 15 20 145 6 1 
1, 214:35 135.2... 2 

8 28 56 70 56 28 8 1 

9 36 84 126 126 84 36 9 1 

10 45 120 210 252 210 120 45 10 1 


pp ja ja par jar pa pa ja ja ps 


Funciones recursivas 


APL permite que un módulo sea invoca- 
do dentro de su propia definición. Cuan- 
do esto ocurre, se dice que el módulo es 
recursivo. La posibilidad de construir fun- 
ciones y procedimientos recursivos pro- 
porciona una enorme potencia a un len- 
guaje de programación. Veamos un 
ejemplo sencillo de función recursiva: 


VZ+FACTORIAL N 
[1] zr1 

[21] >(Ns1)/0 
Z+NxFACTORIAL N-1 


Veamos cómo funciona: se trata de 
una función con un solo argumento (el 
número cuyo factorial queremos calcu- 
lar). La línea 1 inicializa a 1 el valor del re- 
sultado. Este es el resultado correcto si N 
era 0ó 1. La línea 2 lo comprueba y, en 
caso afirmativo, da por terminada la eje- 
cución de la función (la transferencia a 
la línea cero significa, en APL, terminar la 
ejecución del módulo). Finalmente, la lí- 


nea 2 calcula el factorial de N como el 
producto de N por el factorial de N - 1. El 
factorial tiene, en efecto, esta prople- 


-dad. Veamos un ejemplo de su uso: 


FACTORIAL 6 


720 
FACTORIAL 10 
3628800 


Esta función sirve únicamente como 
ejemplo sencillo de recursividad. En la 
práctica no se usa, pues, como ya hemos 
dicho, en APL se puede calcular directa- 
mente la función factorial con el signo de 
admiración: 


720 
110 
3628800 


LOGO 


Operaciones 


básicas con 
números 


ANTO las operacio- 
nes básicas que va- 
mos a ver ahora 
como otras especiali- 
dades que veremos 
más tarde, son funcio- 
nes, es decir, son ór- 
denes que no modíifi- 
can para nada las características de la 
tortuga, sino que hacen que ésta nos de- 
vuelva un resultado. Al igual que en otras 
ocasiones, con este resultado tenemos 
que hacer algo. Lo más sencillo es escri- 
birlo, pero, en general, el resultado de 
una operación con números los utilizare- 
mos con cualquier comando con el que 
se pueda poner un número. 

Como es lógico, las cuatro operacio- 
nes básicas con números son la suma, 
resta, multiplicación y división. La forma 
general de especificarlas es: 

nt op n2 


2 ES 4+5/2 MW 


siendo n] el primer número o primer ope- 
rando, n2 el segundo número o segundo 
operando y op el operador u operación: 


+ suma 
- resta 

* multiplicación 
/ división 


Se pueden encadenar varias operacio- 
nes teniendo en cuenta que existe una 
prioridad entre estos operadores, es de- 
cir, que la tortuga calcula los resultados 
siguiendo un determinado orden: 


1. Divisiones. 

2. Multiplicaciones. 
3. Restas. 

4. Sumas. 


excepto cuando nosotros le indicamos 
que lo cambie mediante la utilización de 
paréntesis. 

Vemos la diferencia del resultado de 
una operación usando y sin usar parénte- 
sis: 


— Sin paréntesis 


7ES. 4451 2 


6.5 
JJ] de 


PULSAMOS 


— Con paréntesis 


2 ES (4+51/2 MW 


7ES ((4+5)1/2 


TV 4.5 


PULSAMOS 


' Otra manera de escribir las 
operaciones básicas 


Algunas de las operaciones básicas 
con números se pueden especificar me- 
diante un nombre en lugar de utilizar el 
operador correspondiente. En este caso, 
la forma de escribirlas es así: 


op n41 n2 


siendo n4 el primer número, n2 el segun- 


?2ES8+4 ¡MS 
12 15 

? ES SUMA 8 4 ? ES PRODUCTO 
12 15 

> m > Mm 


A la hora de utilizar una de las dos for- 
mas de escribir una misma operación 
hay que tener un poco de cuidado por- 
que el orden en que se ponen los núme- 
ros y la operación es diferente. 


Os proponemos 


1. Teniendo en cuenta el orden en el 
cual realiza la tortuga las operaciones, 
intenta averiguar qué resultado escribiría 
en cada caso: 


do número y op el nombre de la opera- 
ción: 


SUMA suma ] 
PRODUCTO multiplicación 
DIV división 


Por tanto, tenemos que: 


— SUMA es equivalente a + 
— PRODUCTO es equivalente a * 
— DIV es equivalente a / 


como podemos ver en estos ejemplos: 


2? ES 360 / 6 
60 

? ES DIV 360 6 
60 

> Mm 


ES4+3-2 
ES5*4+1 
ES 17-6*2 
ES (17 - 6)” 2 
ES 3* 8/4 

ES 3 + 12/3 
ES (3 + 12)/3 


doy) Y y Y Y y 


2. Escribe estas operaciones de otra 
forma si es posible: 


a LOGO 


4*3 PRODUCTO 4 3 
57 
2+7 
7-2 
SUMA 5 3 
DIV 4 8 


PRODUCTO 1 6 


Otras operaciones 
con números 


Nuestra amiga es capaz de realizar 
otras operaciones que no se utilizan con 
tanta frecuencia como las anteriores 
pero que pueden ser interesantes en al- 
gunos casos. Veamos algunas de ellas. 

La función 


COCIENTE n4 n2 


devuelve el cociente de la división del 
número n4 por el número n2, mientras 
que la función 


RESTO n4 n2 


devuelve el resto de dividir el número n4 
por el número n2. 
Así tendríamos que: 


ES 91 Z 
2.5 
ES DIV 5 2 
2.3 
? ES COCIENTE 5 2 
2 


7 ¡ES RESTO S 2 
1 
21m 


La función 
ENTERO n 


devuelve la parte entera del número n, 
es decir, es equivalente a restar a un nú- 
mero su parte decimal. 

Por otro lado, la función 


REDONDEA n 


devuelve el número, que es el resultado 
de redondear el número n al entero más 
próximo. 

Veamos la diferencial con algunos 
ejemplos: 


? ES ENTERO 0.5 
0 

? ES REDONDEA 0.5 
1 

? ES ENTERO 3.47 


3 

2 ES REDONDEA 3.47 
3 

> 


? ES ENTERO 12.68 
12 

? ES REDONDEA 12.68 
13 

? ES ENTERO -7 


”n 
/ 


S REDONDEA -7 


O | Algunos procedimientos 
con números 


Ya hemos visto que la tortuga nos da la 
posibilidad de hacer sumas, multiplica- 
ciones y divisiones de dos maneras: con 
un operador o con un nombre de función. 
Sin embargo, para la resta sólo podemos 
utilizar un operador. Vamos, pues, a defi- 
nirun procedimiento que nos permita ha- 
cer también la resta usando un nombre. 

Una manera sencilla de hacerlo sería: 


? PARA RESTA :NUM1 :NUM2 
> ES :NUM]1 - :NUM2 
> FIN 


Otra forma sería teniendo en cuenta 
que el restar un número de otro es equi- 
valente a quitarle al primero tantos unos 
(1) como valga el segundo. 


Por ejemplo: 


5-3=5-1-1-1 
tres unos 
Con esto, podemos escribir: 


? PARA RESTA :¡NUM1 :¡NUM2 
> REPITE :NUM2 (HAZ “NUM1 :NUM1 —1) 
> ES :NUM] 
> FIN 
es decir, vamos decrementando el valor 
del primer número de uno en uno y lo re- 
petimos tantas veces como nos indique 
el valor del segundo número. 

Probemos a ver si funciona: 


? RESTA 8 5 
3 

? RESTA 150.87 40 
110. 87 

21m 


Ahora, supongamos que queremos es- 
cribir los cinco primeros números. Pon- 
dríamos: 


PARA CUENTA 1 
ES 1 

ES 2 

ES 3 

ES 4 

ES 5 

FIN 


Si no queremos empezar siempre por el 
1, necesitamos una variable para decir- 
le a la tortuga el primer número. Enton- 
ces, nos quedaría: 


? PARA CUENTA2 :NUM 
> REPITE 5 (ES :NUM HAZ "NUM :NUM + 1) 
> FIN 


Si en lugar de escribir cinco números 
quisiéramos poder decir la cantidad de 
numeros, utilizariamos otra variable: 


? PARA CUENTA3 :NUM :CANT 

> REPITE :CANT (ES :NUM HAZ ”NUM :NUM 
+ 1) 

> FIN 


Por último, si en vez de ir incrementan- 
do los numeros de 1 en 1 queremos es- 


VVVVVV> 


cribirlos de 2 en 2 o de 5 en 5, añadiria- 
mos una tercera variable: 


? PARA CUENTA4 :NUM :CANT :INC 

> REPITE :CANT (ES :NUM HAZ "NUM :NUM 
+ :INC) 

> FIN 


Así, al escribir: 
? CUENTAS 5 4 2 
nos quedaría: 


? CUENTA4 5 4 2 


2. 
Una función un poco especial 


Se dice que una cosa es aleatoria 
cuando no podemos saber con exacti- 
tud el resultado que nos va a dar. Por 
ejemplo, cuando jugamos al parchís y ti- 
ramos el dado, sabemos que nos va a sa- 
lir un valor entre 1 y 6, pero no podemos 
decir exactamente cuál va a ser. 

Pues bien, la función 


AZAR n 


hace una cosa parecida. Con ella, la tor- 
tuga nos devuelve un número aleatorio 
que va a estar comprendido entre O y 
n-1. 


? ES AZAR 3 MW 


2. LOGO 


? ES AZAR 3 
0 
> m 


Por ejemplo, si ponemos 
podemos obtener como resultado 0, 10 2. 


' Utilización de la función 
AZAR 


Supongamos que queremos que la tor- 
tuga vaya avanzando de izquierda a de- 
recha por la pantalla un número aleato- 
rio de pasos de forma discontinua, es de- 
cir, alternando que la tortuga pinte y no 
pinte. Escribiriíamos: 


PARA ANDAR 
SL PONPOS (-100 0) BL 

PONRUMBO 90 

REPITE 20 (AV AZAR 5 SL AV AZAR 5 BL) 
OT 

FIN 


Al ejecutarlo, nos quedaría algo así: 


VVVVV> 


Si ahora queremos que la tortuga vaya 
avanzando un número de pasos aleato- 
rio y que también gire un número de gra- 
dos entre 0 y 90, tenemos que poner: 


? PARA AVANGIRA 

SL PONPOS (-100 0) BL 
> REPITE 25 (AV AZAR 10 GD AZAR 91) 
> Ul 

> FIN 


V 


Al ejecutar este procedimiento, la tor- 
tuga se mueve y gira aleatoriamente por 
la pantalla. 

Por último, vamos a suponer que tene- 
mos definido un procedimiento que dibu- 
ja polígonos regulares: 


? PARA POLI :LADO :NUMLADOS 

> REPITE :NUMLADOS (AV :LADO GD 360 / 
:¡NUMLADOS) 

> 0) 

> FIN 


Si queremos que cada vez que la tortu- 
ga dibuje un polígono, el color del fondo 
de la pantalla y el de la figura sean alea- 
torios, debemos usar la función AZAR te- 
niendo en cuenta que la tortuga dispone 
de 16 colores distintos. 


PARA POLI :LADO :NUMLADOS 
PONFONDO AZAR 16 

PONCL AZAR 16 

REPITE :NUMLADOS (AV :LADO GD 360 / 
:¡NUMLADOS) 

OT 

FIN 


Puede darse el caso de que al ejecu- 
tar este procedimiento alguna vez no 
veamos nada en la pantalla: Esto es por- 
que puede dar la casualidad de que al 
obtener el número para el color del fon- 
do y para el color del lápiz, la tortuga sa- 
que el mismo. 


VV VVV>9 


[m Os proponemos 


1. Escribe un procedimiento que se 
llame SUMAR y que obtenga la suma de 
dos números de forma parecida al pro- 
cedimiento RESTA. 

2. Define un procedimiento parecido 
al CUENTA4, pero que en lugar de escri- 
bir los números en orden ascendente lo 
haga en orden descendente. 

3. Suponiendo que tenemos definido 
el procedimiento FLOR que dibuja 8 hep- 
tágonos girados, añádele lo necesario 
para que cada uno sea de un color alea- 
torio. 


? PARA FLOR 
> REPITE 8 (REPITE 7 (AV 50 GD 360 / 7) GD 
45) 
> OT 
> 
4. Piensa cómo dibujarías una cir- 
cunferencia de tamaño aleatorio. 


PASCAL 


y Ficheros 
= de texto 


UY frecuentemente lo 
que se desea guar- 
dar en un fichero son 
datos tal como apa- 
recerían en la panta- 
lla del ordenador, o 
sea, frases, palabras 
o números represen- 
tados con los caracteres que les corres- 
ponden. Se suele guardar así información 
que en algún momento ha de ser leída 
tal cual, sin ser sometida a ningún proce- 
so. Una carta, un capítulo de este libro o 
el texto de un programa PASCAL son ca- 
sos típicos. 

Para ello habría que utilizar estructuras 
de tipo FILE OF CHAR que permitirían guar- 
dar los datos en forma de chorro de ca- 
racteres. 

Los textos normalmente se encuentran 
divididos en renglones, siendo lo más 
corriente al guardarlos en ficheros utilizar 
unos caracteres especiales para indicar 
cuándo acaba un renglón y empieza el 
siguiente. Con los códigos ASCII el fin de 
una línea se indica a menudo con la pa- 
reja formada por los caracteres cuyos or- 
dinales son 13 y 10, que se denominan, 
respectivamente, “retorno de carro” y 
“salto de línea” por su significado para 
teletipos e impresoras. 

Utilizando el ejemplo de una cinta de 
magnetófono, es como si, habiendo gra- 
bado un libro en ella, se hubiera indica- 
do el final de cada renglón con un silbi- 
do o una palmada. 

Tan habituales son estos ficheros que su 
tipo se encuentra ya predefinido con el 
nombre TEXT. 

Como tales ficheros de caracteres, se 
podrían utilizar todos los procedimientos 
generales vistos hasta ahora para leer o 
escribir de carácter en cáracter; sin em- 
bargo, el PASCAL permite hacer un trata- 


miento un poco especial de los ficheros 
de tipo TEXT para manejar cómodamen- 
te la cuestión de las líneas, por medio de 
los procedimientos READ, READLN, WRITE y 
WRITELN junto con la función EOLN. Si defi- 
nimos: 


var T: text; 


T sería una variable con un fichero de tex- 
to asociado, y podriamos hacer lo si- 
guiente con ella: 


eoln (T) Esta función (End Of LiNe, fin de lí- 
nea) devuelve TRUE si nos encontramos al 
final de una línea y FALSE en caso contra- 
rio. 


readin (T) Cuando se está leyendo el fi- 
chero asociado aT, con esto nos posicio- 
naríamos en el primer carácter de la si- 
guiente línea a aquélla en que nos en- 
contramos. 


writeln (T) Al escribir en el fichero asocia- 
do, éstos pondrián la marca de fin de lí- 
nea justo a continuación del último ca- 
rácter escrito, quedando todo listo para 
comenzar a escribir los de la siguiente lí- 
nea. 


Por otra parte, con los ficheros de texto 
podemos utilizar los procedimientos WRI- 
TE y READ de la siguiente manera: 


read (T,C) 
equivale a 
begin C:= T”; get (T) end 
write (T,C) 
equivale a 
begin T”:= C; put (T) end 


o sea, leer (o escribir) el carácter C en la 
posición del fichero T en que nos encon- 
tramos, para pasar después a la siguien- 
te posición. 

Sin embargo, la utilización de READ y 
WRITE va más allá: es posible leer o escri- 
bir varios datos con una sola instrucción: 


read (T,C1,C2) equivale a begin read 
(T,C 1); read (T,C2) end 


20 PASCAL 


y análogamente con WRITE. Si tras una 
instrucción READ o WRITE, respectivamen- 
te, hubiera que ejecutar READLN O WRI- 
TELN, se podría utilizar una sola instruc- 
ción: 


writeln (T,C) equivale a begin write (T,C); 
writeln (T) end 


Esto último, por ejemplo, supondría escri- 
bir el carácter C seguido de una marca 
de fin de línea. 

Además, no sólo se pueden leer o es- 
cribir caracteres: es posible escribir valo- 
res de tipo INTEGER O REAL utilizando in- 
cluso definiciones de espaciado, de ma- 
nera que lo que se escriba sea su repre- 
sentación con caracteres. Si, por ejem- 
plo, pusiésemos: 


write (T,N:3) 


y N fuera una variable INTEGER con valor 
54, esto seria equivalente a poner: 


begin 
write (T,' ' 
write (T,'5'); 
write (T,'4”); 
end 


También se pueden escribir en un fi- 
chero valores de tipo BOOLEAN, lo que 
equivaldría a escribir la palabra 'FALSE' o 
“TRUE”, y, normalmente, strings y datos de 
tipo array de caracteres. 

Igualmente, si el fichero contuviera, por 
ejemplo, los cuatro caracteres '36' y es- 
tuviésemos posicionados sobre el prime- 
ro de ellos (un espacio en blanco) o el 
segundo, la ejecución de read(T,N) o de 
readin(T,N) haría que la variable entera 
N tomara el valor 36, quedándonos des- 
pués posicionados en el carácter si- 
guiente al seis o al comienzo de la si- 
guiente línea, según el caso. 

En otras palabras, con READ, READLN, 
WRITE y WRITELN se puede hacer EXACTA- 
MENTE lo mismo que hacíamos para escri- 
bir datos en pantalla o leerlos de tecla- 
do, sólo que enviando los caracteres 
que normalmente aparecerían en la 
pantalla a un fichero, y recogiendo los 
datos que normalmente se leerían del te- 
clado de un fichero. Al leer los datos de 
un fichero, la marca de fin de línea sería 
equivalente a pulsar la tecla de RETURN 
(intro, newline, etc.) cuando se lee del 
teclado. 

Esta coincidencia no es casual. La pre- 
sentación en pantalla toma la estructura 


de una secuencia de caracteres distri- 
buida en renglones, y los datos que se in- 
troducen desde teclado son también se- 
cuencias de caracteres separadas entre 
sí a golpes de RETURN. Por ello, en PASCAL 
se trata al dispositivo de presentación de 
datos (normalmente la pantalla) y al de 
recogida de datos (normalmente el te- 
clado) como si fueran ficheros. 


Estos ficheros se encuentran predefini- 
dos y se llaman respectivamente, OUTPUT 
(salida en inglés), e INPUT (entrada). Los 
procedimientos RESET y REWRITE no se uti- 
lizan, como es lógico, con estos ficheros. 

Para escribir un dato en el fichero OUT- 
PUT y leer otro del fichero INPUT, haríamos: 


write (output,N); 
read (input,A); 


Cuando en un procedimiento de los 
existentes para ficheros no aparece 
como primer parámetro el nombre de 
una variable de tipo FILE, el PASCAL supo- 
ne que el fichero que falta es, según el 
caso, OUTPUT o INPUT, por lo que lo ante- 
rior equivale a: 


write (N); 
read (A); 


En otras palabras: todos los ejemplos 
del libro en que hemos utilizado esos pro- 
cedimientos han sido casos particulares 
de escritura o lectura de ficheros de tipo 
TEXT. En todos esos ejemplos podríamos, 
por tanto, haber enviado datos a un fiche- 
ro en lugar de a la pantalla para su pos- 
terior utilización, o leído los datos de un 
fichero en lugar del teclado, sin más que 
colocar en cada instrucción de entrada 
o salida el nombre de la variable de tipo 
FILE asociada al fichero (y hacer los pre- 
parativos previos para manejar ficheros 
que precise nuestro ordenador). 

Para enviar o recoger datos de otros 
dispositivos, el método suele ser el mis- 
mo. Por ejemplo, es corriente que, en 
caso de haber impresora, ésta figure 
como un fichero con un nombre predefi- 
nido; este fichero sería similar al fichero 
OUTPUT. 

La posibilidad de salvar y recoger nú- 
meros de ficheros utilizando, no los códi- 
gos que internamente emplea el ordena- 
dor, sino su representación por medio de 
caracteres, tal como los escribiría un ser 
humano, sirve para que datos preparados 
y salvados por un programa en un orde- 


nador dado se puedan leer con otro pro- 
grama preparado con un compilador 
distinto o con un ordenador de distinto 
tipo. 


pu Ejemplos 


Como ya mencionamos en su momen- 
to, el compilador que vamos a utilizar 
para todos los ejemplos en que sea pre- 
ciso escoger uno determinado será el 
Turbo Pascal. 

Con este compilador, para asociar un 
fichero de disco a una variable de tipo 
FILE, hay que ejecutar el procedimiento 
ASSIGN: 


assign (F,'e:1Godos.!st'); 


esto asociaría a la variable F con el fiche- 
ro Godos.Lst que se encuentra (o se va a 
encontrar, en caso de crearse ahora) en 
el directorio raíz de la unidad de disco C. 

El nombre del fichero podría estar es- 
pecificado con una variable o expresión 


program Guardar; 


en lugar de con una constante entre 
apóstrofos. La llamada a este procedi- 
miento ha de ser el primer paso a ejecu- 
tar para trabajar con un fichero. 
Cuando ya se ha terminado de traba- 
jar con un fichero, hay que indicárselo al 
sistema operativo para que, en su caso, 
haga efectivos los cambios introducidos, 
por medio del procedimiento CLOSE: 


close (FP); 


Explicadas sus peculiaridades, pode- 
mos comenzar ya con los ejemplos. 

En primer lugar, vamos a escribir un pro- 
grama para guardar en un fichero de tex- 
to los datos que tecleemos. Los datos te- 
cleados para cada línea se recogerán 
en un variable ARRAY OF CHAR, pero en 
el fichero sólo se guardarán los caracte- 
res realmente tecleados. (Cuando el nú- 
mero de éstos es menor que los que tie- 
ne definidos la variable, al leerse ésta se 
completa automáticamente con espa- 
cios en blanco). 


(k Este programa precisa de algunos cambios para correr X) 
(k con un compilador distinto del Turbo Pascal. kx) 


const 
MaxLong = 80; 


type 


Renglon_t = array [1..MaxLongl] of char; 


var 

Fichero: text: 

Nombre : array [1..20] of char; 

Renglon: Renglon_t:; 
: integer; 


function 


(kx Devuelve la longitud real del texto T. 


(X para el nombre del fichero Xx) 
(X para leer de teclado cada línea %) 


Long (T: Renglon_t)>): integer; 


Se explora el texto de *) 


(k atrás para adelante hasta encontrar el primer carácter válido: X*X) 


var l: integer; Parar: boolean; 
begin 

l:= MaxLong; 

Parar:= false; ' 

while (1 > 0) and not Farar do 


A AS e AR A A O 
Long:= 1 
end; 
AAA o e a e e e 
begin 


chr(0)) then Parar: 


else 1 := 


write (*Nombre del fichero: *); readln (Nombre); 


assign (Fichero, Nombre); 
rewrite (Fichero); 


writeln (*Empiece a escribir el texto, separando las líneas ”, 


-"con INTRO.” )3 


writeln (*Para acabar, pulse INTRO dos veces.” ); 


writeln; 


repeat 
readin (Renglon); 
L:i= Long (Renglon); 
1iF L:>.0 then 


(k lee renglón de teclado *) 


(k si hay caracteres, guardalos en Fichero X*) 


PASCAL 


begin 


for l:= 1 to L do write (Fichero, Renglon (1); 


writeln (Fichero) 
end 
until L = 0; 


close (Fichero) 
end. 


(k- tras cada línea, marcar el final X) 


Cuando, tras escribir una línea, pulsa- 
mos Intro, la línea se guarda en el fiche- 
ro y el programa se vuelve a parar en la 
instrucción READLN; si a continuación vol- 
vemos a pulsar Intro sin haber escrito 
nada, Renglon no contendrá más que es- 
pacios en blanco (o chr(0) con otros 
compiladores), por lo que Long devolve- 
rá el valor 0. Se utiliza esta circunstancia 
para acabar la ejecución del programa. 


program Recoger; 


Este programa serviria, por ejemplo, 
para escribir programas PASCAL línea a 
línea y guardarlos en un fichero. A dife- 
rencia de un buen programa editor, no 
es posible corregir los errores una vez se 
ha pasado a la siguiente línea. 


Por último, vamos a escribir un progra- 
ma para presentar por pantalla el conte- 
nido de un fichero de texto. 


(k Este programa precisa de algunos cambios para correr Xx) 
(K con un compilador distinto del Turbo Pascal. x) 


var 


Nombre : array [1..20] of char; (* Para el nombre del fichero YX) 


Fichero: text: 
E ¿2 Char; 


begin 
write (*Nombre del fichero: 
assign (Fichero. Nombre) ; 
reset (Fichero); 
ClrScr3 


while not eof (Fichero) do 


")i readin (Nombre); 


(X mientras quede algo, presentar líneas: %) 


begin 


while not eoln (Fichero) do 


(X mientras queden caracter»s en la linea actual: X) 


begin 
read (Fichero.C):; 
write (0) 
end: 
readln fFichero): 
writeln 
end; 


/ close (Fichero) 
end. 


Realmente, con la mayoría de los com- 
piladores podriamos haber leido cada li- 
nea con una sola operacion: 


while not eof (Fichero) do 
begin 


> 


(k leer carácter Y*) 
(% presentarlo x) 


( tras cada linea, pasar a la siguiente *) 


e 


D 


readin (Fichero,Renglon); 
writeln (Renglon) 
end; 


Renglon sería una variable como la del 
programa Guardar. 


Sintaxis del 


lenguaje 


DEMAS de las estruc- 
turas típicas de cual- 
quier lenguaje de 
programación relati- 
vamente moderno, 
como el Pascal, ADA 
dispone de otras po- 
sibilidades muy inte- 
resantes que aumentan su flexibilidad de 
cara a la programación (aunque algunos 
hayan objetado que hacen demasiado 
extenso el lenguaje para su aprendiza- 
je). 
Hablemos de estas diferencias que ha- 
cen del ADA un lenguaje tan potente. 


— Los atributos denotan ciertas carac- 
terísticas predefinidas de los nombres a 
los que se refieren (éstos pueden ser va- 
riables, constantes, etc.). 

Por ejemplo, la expresión: 


CARD'ADDRESS 


se refiere a la dirección (address) de la 
variable CARD, que puede ser un regis- 
tro. Esto permitiría utilizar la dirección de 
CARD en expresiones tipo ADDRESS direc- 
tamente. 

— Los agregados (aggregate) son va- 
lores de variables compuestas, como 
matrices o registros manejados sin la ne- 
cesidad de selectores (imprescindibles 
en PASCAL, por ejemplo, para referirse a 
componentes de un registro). 


OTROS LENGUAJES 
ADA 


Esto permite el manejo de datos de 
tipo compuesto sin la necesidad de sen- 
tencia WITH, lo que hace posible, por 
ejemplo, la asignación de valores a un 
registro o matriz, directamente. 

— ADA permite las conversiones de 
tipo para evitar la enorme dificultad de 
los tipos estrictos (al igual que en MODU- 
LA-2). 

— Una expresión calificadora (quali- 
fied expressions) se utiliza para dar ex- 
presamente el tipo de la expresión o 
agregado a utilizar. Esto permite la de- 
tección de errores si éste se asigna a una 
variable de otro tipo. 

— la ejecución de un localizador 
(allocator) crea un objeto y proporciona 
como resultado un valor accesible que 
designa al objeto. 

— Una expresion estática se define en 
término de sus posibles constituyentes y 
debe ser calculable en el momento de 
la compilación, tras la cual quedará inal- 
terable. 

— Un bloque (block) es un conjunto de 
sentencias agrupadas con un identifica- 
dor, al estilo de los procedimientos de 
PASCAL (PROCEDURES), que pueden tener 
también parte declarativa y que son eje- 
cutables y compilables de forma inde- 
pendiente. 

— El «overloading» o sobrecarga es 
una situación permitida en ADA. Esta se 
produce cuando se nombra a dos sub- 
programas u operadores diferentes con 
el mismo identificador. El compilador 
discrimina a cuál nos referimos gracias 
a los tipos de datos que se utilicen como 


“0 OTROS LENGUAJES 


parámetros. Estos deben ser diferentes 
para cada versión de subprograma u 
operador que utilicemos. 

Obsérvense las enormes posibilidades 
de esta situación. Podríamos utilizar, por 
ejemplo, el símbolo * (que normalmente 
denota multiplicación) para realizar 
otras operaciones sobre datos en las que 
no estuviese definida, como multiplicar 
matrices, combinar registros, etc. 

Por ejemplo: 


function “*” (X,Y:MATRIX) return MATRIX 


Seguido de la definición y el cuerpo de 
la función, como en PASCAL, definiría un 
producto de matrices, con el cual sería 
posible la expresión: 


A=B"C 


Siendo todas las variables matrices. 


— Una estructura esencial en ADA, res- 
ponsable de la modularidad, son los pa- 
quetes (Package). Estos son similares a 
los módulos de MODULA-2. 


— Los tipos privados de datos, utiliza- 
dos dentro de un bloque, pero accesi- 
bles desde el exterior, son tipos cuyas 
características son desconocidas por el 
programa exterior, pero que se puede 


acceder a ellos si son asignados a otras 
variables que puedan contenerlos. 

— La flexibilidad proporcionada por 
los bloques de definición hace posible 
en ADA utilizar bloques implementados 
en otros lenguajes, con la restricción de 
que el bloque de definición esté en ADA. 

— Las cláusulas de uso (use) permiten 
utilizar las variables visibles internas a un 
paquete, en la zona del programa don- 
de se ejecuten dichas cláusulas. Esta po- 
sibilidad permite una mayor flexibilidad, 
pero es peligrosa, ya que saca de con- 
texto variables, posibilitando problemas 
de dominio. 

— Las declaraciones de cambio de 
nombre (renames) permiten cambiar el 
identificador de cualquier objeto lógico. 
(Por ejemplo, el nombre de una variable, 
etcétera), en tiempo de ejecución. 

— En un bloque, todos los tipos de da- 
tos predefinidos tienen un entorno están- 
dar si el nombre del bloque va precedli- 
do por la palabra STANDARD. En caso 
contrario, podremos definir libremente 
nuestras propias operaciones, etc. 


En el siguiente capítulo seguiremos ha- 
blando de las principales diferencias en- 
tre el lenguaje ADA y los demás lengua- 
jes conocidos. 
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